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mam 



UNA CAJA DE 
SORPRESAS 



Un yerano más tenéis en vuestras manos el 
número especial de Agosto, y con él veréis 
una fe de erratas que hará la despreocupa- 
ción y el «savoir faire» de todos los tec listas/ 
tecleadores de verano. 

En esta ocasión, hemos cuidado mucho de 
ofreceros una selección de todo lo que os 
gusta. 

Los que tenéis tiempo y ganas de pasarlo 
bien con programas elaborados por vosotros 
mismos, en la primera parte de la revista en- 
contraréis interminables pelotones de líneas 
comprobadas, sin fallos ni errores, soporí- 
feras a los juguetones duendes de imprenta. 

En la segunda parte, nuestra Revista de 
SOFTWARE contiene bastantes más trucos, 
secretos desvelados y cargadores que de cos- 
tumbre: llegar al meollo del programa es ne- 
cesario y satisfactorio. Y también un regalo: 
un super-poster de PHANTOMAS-II en las 
páginas centrales. 



Esperamos que sepáis apreciar el esfuerzo 
que INPUT MSX está realizando para pre- 
sentar mes a mes un contenido que ayude a 
profundizar vuestros conocimientos sobre 
programación y, al mismo tiempo, colme 
vuestra insaciable sed de introduciros en los 
más íntimos secretos de los juegos comercia- 
les que tanto os gustan. 

Agradecemos, de entrada, las cartas de es- 
tímulo que estáis enviando, que son muchas, 
y vuestras nutridas ofertas de colaboración. 

Os prometemos contestación a todos los 
que nos escribáis. 

Por último, una suculenta primicia: IN- 
PUT MSX está preparando una importante 
serie de artículos sobre Código Máquina, ese 
gran desconocido de nuestro sistema, que 
próximamente publicaremos. 

Que disfrutéis con el extraordinario de Ve- 
rano. Y esperadnos, más fieles que nunca, al 
de septiembre. 
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r/ Trucos 




TRUCOS DEL USUARIO DE MSX 



Hoy os presentamos una serie de rutinas para grá- 
ficas y para la utilización de disco. 

Entre los seleccionados de cada mes sortearemos 
tres interesantes videojuegos, siempre de la más ra- 
biosa actualidad. 



Si tenéis algún «truquíllo» olvidado en el fondo del 
ordenador, mandadlo a; 

INPUT MSX 

C/ Aribau, 185, 1.° 

08021-Barcelona 



SIMETRIAS 

Trabajando con el ordenador en 
SCREEN 2 y mediante la instruc- 
ción VDP(3)=253 se produce una si- 
metría en la pantalla, es decir, lo 
que hagamos en la parte izquierda 
de la pantalla se ejecutará al mismo 
tiempo en la parte derecha. Para 
entenderlo mejor veamos el si- 
guiente programa ejemplo: 



10 SCREEN2 

20 VDP(3) = 253 

30 FOR 1 = TO 100 STEP 3 

40 LINE (60,180)-(l,10),15 

50 NEXT I 

60 GOTO 60 

Se produce otro efecto de 
simetría si se cambia la línea 20 
de modo que quede 20 



VDP(3) = 252. Para observar mejor 
este nuevo efecto el bucle de la 
linea 30 se modifica para que la I 
tome valores sólo hasta 30. 

Si se modifica la línea 20 de 
nuevo VDP(3) = 254 se obtiene un 
efecto parecido, pero sólo en la 
mitad izq. de la pantalla. 



LUIS SANCHEZ SABATER 
(Castellón) 



IMPRESIONES OLIMPICAS 

10 SCREEN 2:0PEN "GRP:" AS 

#1:CLS:C0L0R 1,4,4 
20 CIRCLE(90,50), 30,5, ,,.6 
30 CIRCLE(130,50), 30,1, ,,.6 
40 CIRCLE(170,50), 30,2,,, .6 
50 CIRCLE(110,70), 30, 10,, ,.6 
60 CIRCLE(150,70), 30,6,, ,.6 
70 FOR 1 = 1 TO 2 
80 PSET(I+80,110): PRINT#1, 

"BARCELONA '92" 
90 CIRCLE(130,113), 80,14,,, 

.1: NEXT:TIME=0 
100 K%=0:LPRINTCHR$(27); 
"B"; 

110 FOR l%=0 TO 23:LPRINT 
CHR$(27);"S"; "0256"; 



120 FOR J%=0 TO 31 

130 FOR N% = TO 7 

140 A%(N%)=VPEEK 

(K% + N%):IF A%(N%)=0 
AND VPEEK(K%+N% 
+8192) <>PEEK(&HF3EA) 
THEN A%(N%) = 255 

150 NEXT N% 

160 FOR M% = TO 7:P%=2 A 
(7-M%) 

170 B% = ((A%(0) AND P%) = P% 
AND 1) OR ((A%(1) AND 
P%) = P% AND 2) OR 
((A%(2) AND P%) =P% AND 
4) OR ((A%(3) AND 
P%) = P% AND 8) OR 
((A%(4) AND P%) = P% AND 
16) OR ((A%(5) AND 



P%) = P% AND 32) 
0R((A%(6) AND P%) = P% 
AND 64) OR ((A%(7) 
AND P%) = P% AND 
128) 

180 IF B%=9 THEN LPRINT 

CHR$(8); ELSE LPRINT 

CHR$(B%); 
190 NEXT M7o:K%=K%+8: 

NEXT J%:LPRINT: 

NEXT 1% 
200 T=TIME:LPRINT CHR$(27); 

"A"- 

210 SCREEN 0:PRINTT 



SEBASTIAN BRIONES MOYANO 
(Castellón) 



Guardar el valor de las teclas de 
FUNCION 

Como muchos usuarios del sis- 
tema deben saber, mediante la ins- 
trucción KEYn, "<literal de coman- 
dos.", se pueden programar las 
teclas de función, pero nos encon- 
tramos con el problema de que al 



apagar el ordenador perdemos di- 
cha información. Pues bien, si de- 
seamos almacenar en cassette o 
diskette dicha información no te- 
nemos más que poner la siguiente 
instrucción: 



BSAVE"dev:KEY", 6361 5,63774 



Donde dev: es la letra de la 
unidad ductora en el caso de la 
unidad de disco y cas: es la letra 
de la unidad ductora en el caso 
del cassette. 



DAVID TORIBIO 
(Barcelona) 



INPUT 5 



3-D EN PANTALLA 

El programa que a continuación 
presentamos os permitirá realizar 
dibujos tridimensionales por pan- 
talla. Probad de dar valores dife- 
rentes a las entradas de datos: 

10 REM ** DANIEL CALVET 

LEPKHINE ** 
20 CLS:C0L0R15,1,1 
30 INPUT'Numero de lados 



(n=3,..99):";NN 
40 INPUT"Numero de cortes: ";T 
50 INPUT ,, Stepx:(-10... + 10) ,, ;XL 
60 INPUT"Stepy:(-10... + 10)";YL 
70 INPUTLongitud del 

lado:(10...20)" ; LADO 
80 INPUT"Perspectiva:(1...20)" ; STF 
90 GOSUB500 
1000 LX=128:LY=88 
110 GOSUB360 



COPIAS DE SEGURIDAD 

10 SCREEN 0: 

DEFINT A-Z 
50 INPUT "1- doble cara 

2- simple cara" 

;N 

60 IF N = l THEN 
R = 5 

70 IF N = 2 THEN 

R = 2 
80 CLS 
90 FOR K = 

TO R 
100 LOCATE 0, 

6:PRINT"lntroduzca disco y 

pulse una tecla" 
110 IF INKEY$ = "" 

THEN 110 
120 FOR 1=0 

TO 239 
130 LOCATE 0,8:PRINT"Lee 

registro "j 239*K+I 
140 D$ = DSKI$(1,239*K + I) 
150 NEXT I 
170 LOCATE 0, 

6:PRINT"lntroduzca disco b 

y pulse una tecla" 
180 IF INKEY$ = "" THEN 180 
190 FOR 1=0 TO 239 
200 LOCATE 0,8:PRINT"Grabar 

sector ";239*K + I 
210 DSK0$ 1,239* 

K+l 
220 NEXT I 
230 NEXT K 

JAVIER VILA 
(Barcelona) 



GRAFICOS EN MOVIMIENTO 

5 COLOR ,1,1 
10 SCREEN 5 

15 FOR J=3 TO STEP -1: SET 

PAGE J,J:CLS:NEXT:J=0 
30 FOR X=0 TO 255 STEP 5 
40 LINE (X,0)-(255,X),11 
50 LINE (X,211)-(255,211-X), 
8 

60 LINE (255-X,0)-(0,X),4 
70 LINE (255-X,211)-(0, 

211-X),3 
80 NEXT X 

100 Pl = 3.141592654# 
105 D=1:C=15:G0SUB 1100 
110 D=2:C=3:G0SUB 1100 
120 J=J + 1 

125 IF J<4 THEN SET PAGE J, 
J:R=J*PI/40:GOTO 30 

140 FOR J=0TO3:SET PAGE J, 
JtGOSUB 2000:NEXT 
J:G0T0 140 

1100 FOR 1 = TO 2*PI STEP Pl/ 
10 

1200 X1 = COS(I + R)*50+128 
1300 Y1 = SIN(I + R)*50*4/ 
3+106 

1400 X2 = COS(I + D + R)*50+128 
1500 Y2 = SIN(I + D+R)*50*4/ 
3+106 

1600 LINE (X1,Y1)-(X2,Y2),C 
1700 NEXT I 
1800 RETURN 
2000 FOR 1=1 TO 20:NEXT 
Z:RETURN 

JUAN MATENCIO PIULACHS 
(Barcelona) 



120 Pl=3.1415927# 

130 F0RG=1T0STP 

140 R = LADO 

150 X0=LX:Y0=LY:N = NN 

160 BEEP 

170 GOSUB220 

180 LX=LX+(XL):LY=LY+(YL) 

190 NEXTG 

200 DEFUSR=&H9F:A=USR(0) 
210 GOTO20 

220 IFN=0THENN = 20+INT(R/10) 
230 0A=2*PI/N 
240 XW=XO:YW=YO 
250 OB=0:XO=XO+R 
260 F0RK=TT0N 
270 0B=0B+0A 
280 XV=XW+R*COS(OB) 
290 YV=YW+R*SIN(OB) 
300 GOSUB460 
310 X0=XV:Y0=YV 
320 NEXTK 
330 XV=XW+R:YV= 
YW:GOSUB460 
340 X0=XW:Y0=YW 
350 RETURN 
360 REM ** INICIO ** 
370 COLOR15,l,l:SCREEN2 
380 CLS:N=0 
390 RETURN 

400 REM ** MOVIMIENTO ** 

410 PSET(X.Y) 

420 RETURN 

430 REM ** DIBUJO ** 

440 LINE -(X,Y) 

450 RETURN 

460 REM ** LINEA ** 

470 X=XO:Y=YO:GOSUB400 

480 X=XV:Y=YV:GOSUB430 

490 RETURN 

500 IFXL<-10ORXL 

>10THENXL=2 
510 IFYL<10ORYL> 

10THENYL=2 
520 IFSTP<10RYL> 

20THENSTP=1 
530 IFLADO<10ORLADO 

>50THENLADO=10 
540 RETURN 

DANIEL CALVET 
(Barcelona) 
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PENTAGRAMAS EN TU 
ORDENADOR 



. ********* M ELODIAS DE MUESTRA 
KEYl/'asdaasdadfgdfg" 



********* 



********* 



10 CLEAR 

20 . *********MUSICA DE ALEX PALOP 
20 • *********** p/\p/\ INPUT M S X ************ 

40 POKE&HFF89.199 
50 
60 

70 KEY2,"hyhyhyhdgfs" 

80 KEY3,"asdgghgdaasddsas" 

90 KEY4, "sghjhtsghjhsghjht" 

100 KEY5,"adffpadffpadffpdfghgfds" 

110 ******* PREPARACION PENTAGRAMA ****** 

120 PO=6:PL=58 

130 M = 50 

140 Z=20 

150 CLOSE:OPEN"GRP:'*AS#l 

160 COLOR 15,1,1 

170 SCREEN 2 

180 ZX=5 

190 FOR 1 = 1 TO 2 

200 QW=0:PRESET (ZX,20):PRINT# 1, 

"REPRESENTACION EN EL PENTAGRAMA" 
210 ZX=ZX+1 
220 NEXT I 

230 LINE(0,M + 20)-(255,M + 20),15 
240 LINE(0,M )-(255,M ),15 
250 LINE(0,M + 5)-(255,M + 5),15 
260 LINE(0,M + 10)-(255,M+10),15 
270 LINE(0,M + 15)-(255,M + 15),15 
280 COLOR 15:PRESET(6 ,PL):PRINT#l,"x" 
290 PRESET(7,PL):PRINT#1,"I" 
300 PRESET(7,PL-5):PRINT#l,"t" 
310 PRESET(8,PL+5):PRINT#l,"u" 
320 1 *********** NOTAS NORMALES 
330 K$=INKEY$ 

340 IF QW=3 THEN CLEAR:GOTO 120 



*********** 



350 IF K$="a"OR K$="A"THENPLAY"o4c9": 

P=70:TY$ = 

"do":GOTO 640 
360 IF K$ = "s"OR 

K$ = "S"THENPLAY"o4d9 M :P=67:TY$ = 

"re":GOTO 640 
370 IF K$ = "d"OR 

K$ = "D"THENPLAY"o4e9":P=64:TY$ = 

"m¡":GOTO 640 
380 IF K$ = "f"OR 

K$ = "F"THENPLAY"o4f9":P=61:TY$ = 

"fa":GOTO 640 
390 IF K$ = "g"OR 

K$ = "G"THENPLAY"o4g9":P=59:TY$= 

"sol":GOTO 640 
400 IF K$ = "h"OR 

K$ = "H"THENPLAY"o4a9":P=56:TY$= 

"la":GOTO 640 
410 IF K$ = "j"OR 

K$ = "J"THENPLAY"o4b9":P=54:TY$ = 

"s¡":GOTO 640 
420 IF K$ = "k"OR 

K$ = "K"THENPLAY"o5c9":P = 51:TY$ = 

"DO":GOTO 640 
430 IFK$ = "l"OR K$ = "L"THENPLAY"o5d9": 

P=49:TY$= "RE":GOTO 640 
440 IF K$=";" THENPLAY"o5e9": 

P=46:TY$ = "Mi":GOTO640 
450 IFK$ = THENPLAY"o5f9": 

P= 43 :TY$ = " FA " : GOTO640 
460 IF K$ = "" THENPLAY"o5g9": 

P=40:TY$ = ,, SOL":GOTO640 
470 ' ******** ANULACION IMPRESORA ******** 
480 IF QU = 2 THEN IF K$="q"THEN QU = 
490 1 ****** INTRODUCCION IMPRESORA ******* 
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PARTICIPA 



OLIMPIADA ] 

EN VI 



500 IF K$ = " "OR K$ = " "THEN QU = 2 

510 '********** NOTAS SOSTENIDAS ********* 

520 IF K$ = "w"OR K$="W"THEN 

PLAY"o4c*9":P=70: TY$ = "do*":GOTO 700 
530 IF K$ = "e"OR K$ = "E"THEN 

PLAY"o4d#9":P=67: TY$ = "re#":GOTO 700 
540 IF K$ = "t"OR K$ = "T"THEN 

PLAY"o4f#9":P=61: TY$="fa#":GOTO 700 
550 IF K$ = "y"OR K$ = "Y"THEN 

PLAY"o4g#9":P=59: TY$="sol#":GOTO 700 
560 IF K$ = "u"OR K$ = "U"THEN 

PLAY"o4a#9":P=56: TY$ = "la#":GOTO 700 
570 IFK$ = "o"OR K$ = "0"THEN 

PLAY"o5c#9":P=51: TY$ = "DO#":GOTO 700 
580 IF K$ = "p"OR K$ = "P"THEN 

PLAY"o5d#9":P=49: TY$ = "RE#":GOTO 700 
590 IF K$="§" THENPLAY"o5f#9":P=43: 

TY$="FA#":GOTO 700 
600 ' ********* BORRAR PENTAGRAMA ******** 
610 IF K$ = "1"THEN GOTO10 
620 GOTO 330 

630 1 **** COLOCACION NOTAS NORMALES **** 
640 Z=Z+10:COLOR 11:PRESET(Z, 

P+V):PRINT#1,"M" 
650 IFZ=240 THEN M = M + 50:Z=20:V=V+50: 

QW=QW+1:PL=PL+50:GOTO 230 
660 ' ******IMPRESOR NOTAS NORMALES ***** 
670 IF QU = 2 THEN LPRINT"";TY$ 
680 GOTO 330 

690 ' ****COLOCACION NOTAS SOSTENIDAS *** 
700 Z = Z+10:COLOR 11:PRESET(Z, 

P+V):PRINT#1,"M": PRESET(Z+4,P+4+V): 

PRINT*1,"*" 
710 IFZ=240 THEN M = M + 50:Z=20:V=V+50: 

QW=QW+1:PL=PL+50:GOTO 230 
720 ' ***** IMPRESOR NOTAS SOSTENIDAS **** 
730 IF QU.= 2 THEN LPRINT"" ; TY$ 
740 GOTO 330 



10 REM DEPORTES DE INVIERNO 
20 OPEN"GRP:"AS#l 
30 SCREEN 2,2,0 
40 COLOR 1,9,9:CLS 

50 PRESET(20,10):PRINT#1,"*** DEPORTES DE 
INVIERNO ***" 

60 A$=CHR$(&HC0)+CHR$ (&HFF)+CHR$(&HFF) 
+ CHR$(&HC0) + CHR$(&HCF) + 
CHR$(&HC9)+CHR$ (&HD0 + )CHR$(&HD0) 

70 C$ = CHR$(&H0) + CHR$ (&HFC) + CHR$(&HFC) 
+ CHR$(&H0) + CHR$(&H0) + 
CHR$(&H0) + CHR$ (&HC0) + CHR$(&H80) 

80 B$=CHR$(&HD1)+CHR$ (&HC9) + CHR$(&HCE) 
4- CHR$(&HFF) + CHR$(&HC0) + 
CHR$(&HC0) + CHR$ (&HC0)+CHR$(&HFF) 

90 D$ = CHR$(&H0)+CHR$ (&H0) + CHR$(&H0)+ 
CHR$(&HFF) + CHR$(&H3) + CHR$(&H3) + 
CHR$(&H3) + CHR$ (&HFF) 

100 SPRITE$(1) = A$ + B$ + C$ + D$ 

110 COLOR 4 

120 PRESET(42,35): PRINT* 1, "PARA PRACTICAR 

DEPORTES DE" 
130 PRESETÜ0.45): PRINT* l,"INVIERNO NO ES 

NECESARIO SALIR" 
140 PRESETÜ0.55): PRINT* 1, "DE CASA. BASTA 

CON SELECCIONAR" 
150 PRESETÜ0.65): PRINT*1,"UNA DE ESTAS 4 

OPCIONES (0-3):" 
160 SPRITE$(2) = CHR$(&H38) + 

CHR$(&H44)+CHR$(&HBA) 

+ CHR$(&HA2) + CHR$ (&HBA)+CHR$(&H44) 

+ CHR$(&H38)+CHR$(&H0) 
170 PUT SPRITE 2,(95, 184), 1,2: PRESETÜ10, 

185):COLOR 1:PRINT*1,"JB 1985" 
180 CIRCLE (110,145), 10, 4, ,,1.4: CIRCLE (128, 



REPRESENTACION EN EL PENTAGRAMA 



8 INPUT 



PARTICIPA 



E INVIERNO 
IANO 



145),10,1„,1.4:CIRCLE (146, 145), 10,6,,, 
1.4:CIRCLE (119,157),10 I 10,,,1.4:CIRCLE 
(137,157),10,12,,,1.4 
190 PLAY"V15T140O4L4CL9DL6EL9DL6CL2GL 
4CL9DL6EL9DL6CL2DR64L4DL9EL6FL9EL 
6DL3B05L9C04BAL6GL9AGFL6EL9FEDL2C 

200 FOR 1 = 1 TO 5 
210 IF 1 = 1 THEN C=l 
220 IF 1 = 2 THEN C=12 
230 IF 1=3 THEN C=4 
240 IF 1 = 4 THEN C=15 
250 IF 1 = 5 THEN C = 6 
260 COLOR C 

270 PRESET(80,90): PRINT* 1,"0... OLIMPIADA" 

280 PRESET(80,100): PRINT#1,"1 SALTOS" 

290 PRESET(80,110): PRINT#1,"2 SLALOM" 

300 PRESET(80,120): PRINT#1,"3 TRINEO" 

310 A$ = INKEY$ 

320 IF A$ = "0" OR A$ = "l" OR A$="2" OR 

A$ = "3" THEN 400 ELSE 340 
340 NEXT 
350 GOTO 200 
400 REM PAISAJE 

410 COLOR 1,15,15:PUT SPRITE 2,(95, 184), 15, 

2:CLS 

420 LINE(0,120)-(20,100): LINE-(39, 

119):CIRCLE (-80,-20), 200, 1,5,5.8, 1.2: 
CIRCLE(220,-20),200, 1,3.63,4, 1.2: 
CIRCLE( 142, 89), 60, 1,4,5.3, 1.4: CIRCLE(107, 
-40), 200, 1,5.2,5.9, 1.5: LINE(233, 
29)-(255,70) 
430 LINE(95,110)-(140,65): LINE-(195, 1 10) 
440 LINE(47,110)-(55,120): LINE-(75, 

106):LINE-(90,104): CIRCLE(190,-5),90,,5, 



5.4: LINE(245,65)-(255,70) 
450 LINE(115,90)-(130,95): LINE-(150, 

85):LINE-(165,87): LINE(0, 120)-(20, 

125):LINE-(35,115) 
460 PUT SPRITE 2, (112,104), 1,2: PRESETÜ27, 

105):PRINT#1, "JB 1985":CIRCLE(40,25),2 

0,10,,, 1-4 

470 CIRCLEÜ60.40), 40,14,.7,2.5:CIRCLE (126, 
26), 10, 14, 1.6, 4. 8, .8: CIRCLE(158,24),3,3, 
14,3.5,5.4: CIRCLEU80, 31), 20, 14,4.7, .9,.9: 
LINE(255,70)-(255,40): LINE-(248, 
43):LINE-(255,46): LINE(4, 180)-(255,54) 

480 PAINT(40,25),10,10:PAINT (130,30), 14, 14 

490 PLAY"T99O4L6CFR64L10FGL6AR64L6FO5 
L3CO4L3AR64L6AL6A#O5L10CO4L10A#A 
A#O5L6CO4L10GFGAL5GL6CFR64L10FGL 
6AFO5L3CO4L3AR64L10AA#O5L10CO4L1 
0AA# L5GL10FR64L3F" 

500 FOR X=0 TO 255 STEP .5 

510 PUT SPRITE l,(X,180-X/2), 1,1 

520 NEXT 

530 A=VAL(A$)+l:ON A GOTO 2000,2000,3000, 
4000 

2000 REM SALTOS 

2010 COLOR 15,7,7:CLS:SCREEN2,2 

2020 LINE(255,60)-(240,60):LINE-(180,140) 
:CIRCLE(162,116),30,,3.8,5.4:LINE(136, 
132)-(136,191):LINE-(255,191):PAINT( 
200, 140),15,15 

2030 COLOR 4:LINE(135,152) - (0,176), 4, 

BF:LINE(135,152) - (135,80):LINE-(0, 
80):PSET (0,95):FOR X=0 TO 
135STEP5:Y=4*SIN(X) +95:LINE-(X,Y): 
NEXT:PAINT(50,89), 4,4:C0L0R 
15:PSET(40,161),4: PRINT* 1, "SONY MSX": 
PSET(45,83):PRINT#1,"HIT BIT":LINE(0, 
177) -(135,191), 14, BF 

2050 COLOR 4:PSET(8,136),7:PRINT#1, 

"BABABABABABABABA":PSET (8,120), 
7:PRINT# 1,"BABABABABABABABA" 

2060 COLOR 1:PSET(8,144),7:PRINT#1, 

"ABABABABABABABAB":PSET (8,128), 
7:PRINT#1,"ABABABABABABABAB": 
PSETC8, 1 1 2), 7 : PR I NT* 1 , 
"ABABABABABABABAB" 

2070 A$ = CHR$(&H1) + CHR$(&H3) + CHR$(&H1) 
+ CHR$(&H1) + CHR$(&H1) + CHR$(&H1) + C 
HR$(&H1) + CHR$(&HF):B$ = CHR$(&H1) + 
CHR$(&H3) + CHR$(&H6) + CHR$(&HE) + C 
HR$(&HF) + CHR$(&H47) + CHR$(&H83) + C 
HR$(&H7F) 
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2080 C$ = CHR$(&HE0) + CHR$(&HF0) + CHR$(& 
HC8) + CHR$(&HC4) + CHR$($HE0) + CHR$( 
&HE0) + CHR$(&HD0) + CHR$(&HE0):D$ = C 
HR$(&HC0) + CHR$(&H80) + CHR$(&H0) + C 
HR$(&H0) + CHR$(&H0) + CHR$(&H80) + C 
HR$(&HC0) + CHR$(&HFF) 

2090 SPRITE$(3)=A$ + B$+C$ + D$ 

2100 A$ = CHR$(&H1F) + CHR$(&H3E) + CHR$(& 
H1F) + CHR$(&H7) + CHR$($H3) + CHR$(&H 
1) + CHR$(&H2) + CHR$(&H4):B$ = CHR$(& 
H8) + CHR$(&H0) + CHR$(&H0) + CHR$(&H 
0) + CHR$(&H0) + CHR$(&H0) + CHR$(&H0) 
+ CHR$(&H0) 

2110 C$ = CHR$(&H80) + CHR$(&H40) + CHR$(& 
H0) + CHR$(&H80) + CHR$(&HC0) + CHR$(& 
HE0) + CHR$(&HE0) + CHR$(&HE0):D$ = CH 
R$(&HE1) + CHR$(&HE2) + CHR$(&HFC) + C 
HR$(&HF8) + CHR$(&H10) + CHR$(&H20) + 
CHR$(&H40) + CHR$(&H80) 

2120 SPRITE$(4) = A$ + B$+C$+D$ 

2130 FOR CA=110TO120STEP10: LINE(255, 
0)-(0,32),9,BF 

2140 COLORlrPRESET (10,3),9:PRINT# 1, "l 1 

SALTO:000m":PSET (10, 13):PRINT# 1, "2' 
SALTO:000m": PSET(10,23):PRINT# 1,"3' 
SALTO:000m" 

2150 PSET(140,7):PRINT#1,"MARCA M :PRESET 
(140,19),9:PRINT#1,CA:PSET(205,7):PRI 
NT*l,"PUNTOS":PRESET(213,19),9:PRI 
NT*1,USING"****";PU 

2160 FOR HO=l TO 3:PUTSPRITE4,(240,42) ) 1,3, 
:PRESET (160,60), 7: PRINT* 1 , "-LISTO!": 
PLAY"B 

2170 A$ = INKEY$:IF A$oCHR$(31) THEN 2170 
2180 COLOR 7:PSET(160,60): PRINT#1, 

"-LISTO!":P=100 
2190. FOR X=225 TO 170 STEP -2:P=P-5 
2200 Y=345-X*1.3 

2210 PUT SPRITE 4,(X,Y), 1,4:F0R T=l TO 
P:NEXTT,X:Y1 = 110 

2220 A$ = CHR$(&HF) + CHR$(&H1E) + CHR$(&H 
F) + CHR$(&H7) + CHR$(&H3) + CHR$(&H41 
) + CHR$(&H26) + CHR$(&H10):B$ = CHR$( 
&H8) + CHR$(&H4) + CHR$(&H2) + CHR$(& 
H1)+CHR$(&H0) + CHR$(&H0) + CHR$(&H 
0) + CHR$(&H0) 

2230 C$ = CHR$(&H80) + CHR$(&H40) + CHR$(& 
H0) + CHR$(&H80) + CHR$(&HC0) + CHR$(& 
HE0) + CHR$(&HE0) + CHR$(&HA0):D$ = CH 
R$(&HA0) + CHR$(&HA0) + CHR$(&HA0) + C 
HR$(&H20) + CHR$(&HC0) + CHR$(&H40) + 



CHR$(&H20) + CHR$(&H10):SPRITE$(5) = 

A$+B$+C$+D$ 
2240 FOR X=155 TO 125 STEP-2:Y=(X/ 

20) A 2 + 80:IF X>145 THEN PUT SPRITE4,(X, 

Y-9),l,3:GOTO 2260 
2250 PUT SPR!TE4,(X,Y-1),1,5: Z$=INKEY$:IF 

Z$=CHR$(30)THEN 2290:GOTO 2260 
2260 NEXT 

2270 FOR X=125 TO 115 

STEP-2:Y1=Y1 + 10:PUT SPRITE4,(X,Y1), 1, 
5 

2280 NEXT:PLAY"C":PUTSPRITE4,(115,170),1,3: 

MA=10:GOTO 2330 
2290 M=X*4-490:ME = (120 + M)/2:FOR XS=120 

TO MSTEP-1:IF XS>ME THEN 

YS=XS+3:PUT SPRITE4,(XS,YS),l,5:GOTO 

2310 

2300 YS=170-XS:PUT SPRITE4,(XS,YS), 1,5 
2310 NEXTrFOR 1 = 1 TO 170:YS=YS+ 1:IF 

YS<>170 THEN PUT SPRITE4,(XS-I/3,YS), 

1,5:NEXT 

2320 PLAY"F":PUT SPRITE4,(XS-I/3,YS), 1, - 
3:MA=INT (130-(XS-l/3) + RND(l)*9) 

2330 COLOR 9:PSET(82,HO*10-7): 

PRINT* 1" 000 ":PSET (213,19):PRINT#1, 
" 0000 ":COLOR LPRESET (74,HO*10-7), 
9:SA(HO) = MA:PRINT#l,MA:PU = MA*3 + PU: 
PRESET(213,19),9:PRINT#1, 
USING"####";PU 

2340 FOR PA=1 TO 500:NEXTPA, HO 

2350 IF SA(1)<CA AND SA(2)<CA AND SA(3)<CA 
THEN2370 

2360 NEXT 

2370 IF SA(1)>120OR SA(2)>120OR 
SA(3)>120THEN PU = PU + 200 

2380 FOR 1 = 1 TO 2000:SCREEN3 

2390 PRESET(40,5),7:PRINT#1, 

"SALTOS":PRESET(37,25),7: PRINT* 1, 
"WWWWWW":COLOR 4:PRESET (30,90), 
7:PRINT*1, "PUNTOS:":COLOR 
12:PRESET(50,165),7: PRINT*1,PU 

2400 FOR D=l TO 2000:NEXT 

2410 IF Aol THENRUN 

3000 REM SLALOM 

3010 COLOR ,15,15:SCREN 2,2 

3020 A$ = CHR$(1) + CHR$(7) + CHR$(&H1F) + CH 
R$(&H3F) + CHR$(&H1F) + CHR$(7) + CHR$ 
(1) + CHR$(1):B$ = CHR$(1) + CHR$(1) + CH 
R$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR 
$(1) + CHR$(1):SPRITE$(7) = A$ + B$ 

3030 LINE(0,31) - (47, 15),7,BF: LINE(48,31) - 
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(143,15),9,BF:LINE (144,31) - (183,15), 4, 
BF:LINE(184,31)-(255,15), 3,BF:C0L0R 
1:PRESET(0,6):PRINT#1,"ABABABABABAB 
ABABABABABABABABABAB" 

3060 A$ = CHR$(0) + CHR$(15) + CHR$(9) + CHR$ 
(9) + CHR$(9) + CHR$(9) + CHR$(9) + CHR$( 
5):B$ = CHR$(14) + CHR$(0) + CHR$(14) + C 
HR$(&HEB) + CHR$(&HBB) + CHR$(&H45) 
+ CHR$(&H38) + CHR$(0) 

3070 C$ = CHR$(0) + CHR$(&HF8) + CHR$(6) + CH 
R$(&H73) + CHR$(&H49) + CHR$(&H71) + C 
HR$(1) + CHR$(&HC3):D$ = CHR$(&HBE) + 
CHR$(&4) + CHR$(&H72) + CHR$(&H49) + C 
HR$(&H71) + CHR$(2) + CHR$(&HFC) 

3080 SPRITE$(8) = A$ + B$+C$ + D$ 

3090 PRESET(11,19),7: PRINT* 1,"S0NY": 
PRESET(60,19),9: PRINT* 1,"C0CA- 
COLA":PUT SPRITE8,(155,14),15, 
8:PRESET(198,19),3: PRINT* 1, "ADIDAS" 

3100 LINE(6,37)-(57,49),13,BF: COLOR 
15:PRESET(9,40),13:PRINT*1, 
"SALIDA":LINE(128,175) -(162, 191), 1 1, 
BF: PRESET(131,180):COLOR 1:PRINT*1, 
"META" 

3120 FOR l=9T028 

3130 READ X,Y 

3140 PUT SPRITEI,(X,Y),2,7 

3150 NEXT I 

3160 DATA 60,33,99,33,68,49,108,49,78,70, 
118,65,69,86,109,81,60,102,99,97,69, 
113,109,113,80,129,120,129,87,145,130, 
145,78,161,117,161,69,177,109,177 

3170 A$=CHR$(15) + CHR$(&H1E) + CHR$(15) + C 
HR$(7) + CHR$(3) + CHR$(1) + CHR$(6) + C 
HR$(0):B$ = CHR$(0) + CHR$(0) + CHR$(0) 
+ CHR$(0) + CHR$(1) + CHR$(2) + CHR$(4) 
+ CHR$(8) 




3180 C$ = CHR$(&H80) + CHR$(&H40) + CHR$(0) 
+ CHR$(&H80) + CHR$(&HC1) + CHR$(&HE 
2) + CHR$(&HE4) + CHR$(&HA8):D$ = CHR$ 
(&HB0) + CHR$(&HA0) + CHR$(&HC0) + CHR 

$(&H80) + CHR$(0) + CHR$(0) + CHR$(0) + C 
HR$(0) 

3190 SPRITE$(9)= A$ + B$+C$ + D$ 

3200 A$=CHR$(1) + CHR$(2) + CHR$(0) + CHR$(1 
) + CHR$(&H83) + CHR$(&H47) + CHR$(&H2 
7) + CHR$(&H15):B$ = CHR$(13) + CHR$(5) 
+ CHR$(3) + CHR$(1) + CHR$(0) + CHR$(0) 
+ CHR$(0) + CHR$(0) 

3210 C$ = CHR$(&HF0) +CHR$(&HF8) + CHR$(&H 
F0) + CHR$(&HE0) + CHR$(&HC0) + CHR$(& 
H80) + CHR$(&H60) + CHR$(0):D$ = CHR$( 
0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(& 
H80) + CHR$(&H40) + CHR$(&H20) + CHR$( 
&H10) 

3220 LINE(255,60)-(141,120),14,BF 

3230 PRESET(144,65),14: PRINT#1,'T 

SLALOM:000m":PRESET (144,77), 14: 
PRINT*1,"2' SLALOM:000m": PRESET(144, 
89), 14: PRINT*1,"3* SLALOM:000m" 

3240 COLOR 4:PSET(168, 104): PRINT*1, 
"PUNTOS:";USING "####" ; PTS 

3250 SPRITE$(10)=A$+B$+C$+D$ 

3260 PUT SPRITE29,(77,33), 1,10:PLAY"B" 

3270 IF INKEY$oCHR$(31) THEN 3270 

3280 XS = 77:SPRITE ON 

3290 AA=10:NI = NI + 1 

3300 FOR YS=33 TO 175 STEP NI*. 5+1 

3310 PUT SPRITE29,(XS,YS),1,AA 

3320 XS$=INKEY$ 

3330 IF XS$ = CHR$(28)THEN XS=XS+4:PUT 

SPRITE29,(XS,YS),1,10:AA=10 
3340 IF XS$ = CHR$(29)THEN XS=XS-4:PUT 

SPRITE29,(XS,YS),1,9:AA=9 
3350 ON SPRITE GOSUB 3380 
3360 NEXT YS 

3370 SL(NI)=YS-33:GOTO 3390 
3380 PLAY"T255BAGFEDC": SPRITE 

OFF:SL(NI)=YS-33 
3390 PRESET(221,53 + NI*12),14:COLOR 

14:PRINT*l," ooo ":C0L0R 1:PRESET(216, 

53 + NI*12),14: PRINT* l.USING"****"; 

SL (NI):PLAY"C":FOR F=l TO 999:NEXT F:IF 

Nlo3THEN 3260 
3400 PTS = (SL(1) + SL(2) + SL(3)) *7:IF SL(1)>142 

AND SL(2)>142 AND SL(3)>142 THEN 

PTS = PTS + 200 
3410 PRESET(224,104):COLOR 14:PRINT*1, 
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" OOOO ":PRESET(224,104),14:COLOR 
4:PRINT#1, USING"####*';PTS 

3420 FOR 1 = 1 TO 2000:NEXT:COLOR, 7, 
7:SCREEN 3 

3430 COLOR 1 :PRESET(40,5),7: PRINT#1, 

"SLALOM ":PRESET (37,25),7:PRINT#1, 
"WWWWWW":COLOR 4:PRESET (30,90), 
7:PRINT#l,"PUNTOS: ,, :COLOR 12:PRESET 
(50,165) 1 7:PRINT#l,INT(PTS + .5) 

3440 FOR D=l TO 2000:NEXT 

3450 IFAolTHENRUN 

4000 REM TRINEO 

4010 COLOR ,15,15:SCREEN 2,2 

4020 LINE(0,0)-(255,15), 3,BF:LINE-(0,191),1, 
B 

4030 COLOR 1:F0R R=37 TO 191 STEP 
22:R%=C0S(TIME)*35: LINE(R%, 
R)-(R%+66,R): LINE(R% + 96, 
R)-(R%+156,R): LINE(R%+185, 
R)-(R%+260,R): NEXT R 

4040 PSET(13,4):PRINT#1, "MARCA:70 
PUNTOS:0000 TIEMPO:00" 

4050 A$ = CHR$(0) + CHR$(0) + CHR$(0) + CHR$( 
0) + CHR$(&H10) + CHR$(&H10) + CHR$(&H 
3F) + CHR$(&H38):B$ = CHR$(&H38) + CHR 
$(&HFE) + CHR$(&HFE) + CHR$(&HFE) + CH 
R$(&H44) + CHR$(&H45) + CHR$(&HFE) + C 
HR$(0) 

4060 C$=CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) 
+ CHR$(0) + CHR$(0) + CHR$(0) + CHR$(&H 
86):D$ = CHR(&H47) + CHR$(&H26) + CHR$ 
(&H7E) + CHR$(&H7E) + CHR$(&H42) + CHR 
$(&H42) + CHR$(&H42) + CHR$(0) 

4070 SPRITE$(11)=A$ + B$ + C$+D$ 

4080 A$ = CHR$(0) + CHR$(0) + CHR$(0) + CHR$( 
0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(& 
H61):B$ = CHR$(&HE2) + CHR$(&H64) + CH 
R$(&H7E) + CHR$(&H7E) + CHR$(&H42) + C 
HR$(&H42) + CHR$(&H42) + CHR$(0) 

4090 C$ = CHR$(0) + CHR$(0) + CHR$(0) + CHR$( 
0) + CHR$(8) + CHR$(8) + CHR$(&HFC) + CH 
R$(&H1C):D$ = CHR(&H1C) + CHR$(&H7F) 
+ CHR$(&H7F) + CHR$(&H7F) + CHR$(&H2 
2) + CHR$(&HA2) + CHR$(&H7F) + CHR$(0) 

4100 SPRITE$(12) =A$+B$+C$ + D$:NDI = 

4110 LINE(0,24)-(39,37),7,BF: PRESET(9,28), 
7:PRINT#1,"META" 

4120 LINE(203 I 178)-(255,191),5,BF 

4130 COLOR 15:PRESET (207,181),5:PRINT#1, 
"SALIDA" 

4140 JB=JB+ 1 :IF JB= 1 THEN 4180 
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4150 MAR = 80-JB*10 

4160 COLOR 3:PSET(61,4):PRINT#1," 00 " 

4170 PRESET(61,4),3:C0L0R 1:PRINT#1, 

USING"##";MAR 
4180 TI = 0:NDI = NDI + 1:PUT SPRITE2.Ü80, 174), 

1,12 

4190 A$=CHR$(1)+CHR$(7) + CHR$(&H1F) + CHR 
$(&H3F) + CHR$(&H1F) + CHR$(7) + CHR$( 
1) + CHR$(1):B$ = CHR$(1) + CHR$(1) + CHR 
$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$ 
(1) + CHR$(1):SPRITE$(7) = A$ + B$ 

4200 IF INKEY$oCHR$(29) THEN 4200 

4210 SPRITEON 

4220 F0RB = 42T0152STEP22 

4230 B% = SIN(TIME)*150:IF B = 20 AND 
ABS(B%)<80 THEN 4230 

4240 IF P0INT(B%+16,B + 5) = 5 OR POINT 
(B%+16,B + 5)=1 THEN 4230 

4250 PUT SPRITEINT(B/9) + 9, (B%,B),4,7:NEXTB 

4260 COLOR 1:XT= 180:YT= 174 

4270 XT=XT-8:IF XT<0 THEN XT=0 

4280 TI=TI + .5:C0L0R 3:PRESET(237,4): 

PRINT#1" 00 ":COLOR 1:PRESET(237,4),3: 
PRINT#1,USING "##" ; TI:IF TI>89THEN 
4550 

4290 IF XT<40 AND YT=20 THEN 4520 
4300 T$=INKEY$ 

4310 IF T$ = CHR$(30) THEN 4320 ELSE 4340 
4320 IF POINT(XT,YT-5)=15 AND P0INT(XT+16, 

YT-5)=15 THEN YT=YT-22 
4330 IF YT<20 THEN YT=20 
4340 ON SPRITE GOSUB 4560 
4350 IF T$=CHR$(31) THEN 4360 ELSE 4380 
4360 IF POINT(XT,YT+ 17)= 15 AND 

POINT(XT+16,YT+17) = 15 THEN YT=YT+22 
4370 IF YT>174THEN YT=174 
4380 IF T$ = CHR$(28) THEN 4400 
4390 PUT SPRITE2,(XT,YTU,12:GOTO 4270 
4400 XT=XT+7:IFXT>235 THENXT=235 
4410 TI=TI + .5:COLOR 3:PRESET(237, 

4):PRINT#1," 00 ":COLOR 1:PRESET(237,4), 

3: PRINT#1,USING "##";TI:IF TI>89THEN 

4550 
4420 T$=INKEY$ 
4430 IFT$ = CHR$(29) THEN 4270 
4440 IF T$ = CHR$(30) THEN 4460 ELSE 4480 
4450 ON SPRITE GOSUB 4560 
4460 IF POINT(XT,YT-5)=15 AND POINT(XT+16, 

YT-5)=15 THEN YT=YT-22 
4470 IF YT<20 THEN YT=20 
4480 IF T$ = CHR$(31) THEN 4490 ELSE 4510 
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4490 IF POINT(XT,YT+ 17)= 15 AND 

P0INT(XT+16,YT+17) = 15 THEN YT=YT+22 

4500 IF YT>174THEN YT=174 

4510 PUTSPRITE2,(XT,YT),1,11:G0T0 4400 

4520 PLAY"T120O6L4DECO5CL4G":FOR CB=1 TO 
600:NEXT CB:IF TI<MAR THEN 
PS=PS + 200 

4530 PS=(90-TI)*20+PS 

4540 COLOR 3:PRESET(237,4):PRINT# 1 , 

"°°":PRESET(141,4): PRINT#1," 0000 ":COLOR 
1:PRESET(237,4),3: PRINT#1,USING"##"; 
TI: PRESET(141,4),3:PRINT#1, 
USING"####" ; PS: SPRITEOFF 

4550 IF NDI<3 THEN 4140 ELSE 4570 

4560 COLOR 3:PRESET(237,4):PRINT# 1," 00 " : 
COLOR 1:PRESET(237,4),3: PRINT#1, 
USING"##";TI: PLAY"06A":SPRITEOFF:IF 
NDI<3 THEN 4140 ELSE 4580 

4570 PLAY"T60O4L16BO5L32DO4L16BR64L16 
B05L32D04L16B05L32CDC04L16AL32B 
05C04BL16GB05L32D04L16BR64B05L3 
2D04L16B05L32CDC04L16AL32BL9G" 

4580 FOR 1 = 1 TO 2000:NEXTI:COLOR ,7, 
7:SCREEN3 

4590 COLOR 1:PRESET(40,5),7: PRINT#1, 

"TRINEO": PRESET(37,25),7: PRINT#1, 
"WWWWWW": COLOR 4:PRESET(30,90), 
7:PRINT#1, "PUNTOS:":COLOR 
12:PRESET(50,165),7: PRINT#1,PS 

4600 FOR D=l TO 2000: NEXT D:IF Aol 
THENRUN 

4610 COLOR ,7,7:SCREEN3:COLOR 1:PRESET(20, 
5),7:PRINT#1, "FIN DIA":PRESET(19,25),7: 
PR I NT# 1 , "WWWWWWW" :COLOR 
4:PRESET(30,90),7:PRINT#1, 
"PUNTOS:":COLOR 12:PRESET(50, 165), 7: 
PRINT#l,INT(PS + PT+PU + .5) 

4620 PLAY"T50O4L16GL8EL16GL8EL18GL7FL1 
6GL8AL16GL8BL18GL15FL10E":FORI = 1T 
O3000:NEXTI 

4630 IFPS + PT+PU<7000THENRUNELSE4640 

4640 DIMF$(84) 

465JZ) COLOR ,1,1:SCREEN2,2 

4660 SPRITE$(2)=CHR$(&H38) + CHR$(&H44) + C 
HR$(&HBA) + CHR$(&HA2) + CHR$(&HBA) 
+ CHR$(&H44) + CHR$(&H38) + CHR$(&H0) 
:PUTSPRITE5,(99, 160:, 13, 2:PSET( 112,1 
61),l:COLOR 13:PRINT#1,"JB 1985" 

4670 A$ = CHR$(0) + CHR$(0) + CHR$(0) + CHR$( 
0) + CHR$(&H10) + CHR$(&H10) + CHR$(&H 
3F) + CHR$(&H38):B$ = CHR$(&H38) + CH 



R$(&HFE) + CHR$(&HFE) + CHR$(&HFE) + C 
HR$(&H44) + CHR$(&H45) + CHR$(&HFE) + 
CHR$(0) 

4680 C$ = CHR$(0) + CHR$(0) + CHR$(0) + CHR$( 
0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(& 
H86):D$ = CHR$(&H47) + CHR$(&H26) + CH 
R$(&H7E) + CHR$(&H7E) + CHR$(&H42) + C 
HR$(&H42) + CHR$(&H42) 
+ CHR$(0) 

4690 SPRITE$(11)=A$+B$+C$ + D$ 

4700 A$ = CHR$(0) + CHR$(0) + CHR$(0) + CHR$( 
0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(& 
H61):B$ = CHR$(&HE2) + CHR$(&H64) + CH 
R$(&H7E) + CHR$(&H7E) + CHR$(&H42) + C 
HR$(&H42) + CHR$(&H42) 
+ CHR$(0) 

4710 C$ = CHR$(0) + CHR$(0) + CHR$(0) + CHR$( 
0) + CHR$(8) + CHR$(8) + CHR$(&HFC) + CH 
R$(&H1C):D$ = CHR$(&H1C) + CHR$(&H7F) 
+ CHR$(&H7F) + CHR$(&H7F) + CHR$(&H2 
2) + CHR$(&HA2) + CHR$(&H7F) 
+CHR$(0) 

4720 SPRITE$(12) =A$+B$ + C$ + D$: 
NDI = 0:PRESET (73,9), l:COLOR 
11:PRINT#1,"** SONY **":PRESET (90, 
60),1:COLOR 6:PRINT#1,"ES USTED..." 

4730 PUTSPRITE28,(136,92),5,11: 
PUTSPRITE29, 
(114, 92), 5, 12 

4740 PLAY"T130O4L6CR64L9CL5GR64L12GAG 
E#L5GL6CR64L9CL5GR64L12GAGE#AL5 
GL8CR64CR64CR64CR64CL2BL5GL8CR6 
4CR64CL2BL5GL12CR64CR64CBAB05L5 
C04L8CR64CR64CR64CR64CR64L4C":FO 
RI = 1TO3000:NEXTI 

4750 FORST=136TO190: PUTSPRITE28,(ST,92), 
5,11: PUTSPRITE29,(250-ST,92), 5, 
12:NEXTST 

4760 DATAI.M.B.A, 
T,I,B,L,E 

4770 F0RI = 1T09:READ 
F$(I):NEXTI 

4780 F0RI = 1T09:F0RJ=65T084:C0L0R 

1:PRESET(91+8*I,99): PRINT# l,"°":COLOR 
15:PRESET (91 + 8*1, 99):PRINT#1, 
CHR$(J):BEEP:IFCHR$(J) = F$ (I) 
THEN4800 

4790 NEXTJ 

4800 NEXTI 

4810 FORFH = 1TO2000: 
NEXTFH:RUN 

■ 
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GRAFICOS 
MATEMATICOS 



Este programa, aparentemente complejo pero de 
estructura básica muy sencilla, es capaz de dibujar 
simultáneamente hasta cinco gráficas distintas, 
dando así opción a dibujar gráficas en las que 
existan dos posibles valores de Y para cada valor 

de X. 

Tras la presentación, el ordenador pregunta cuántas 
funciones simultáneas se desean introducir, y acto 
seguido las lista, pudiéndose corregir. Después de la 
corrección se pulsa F1 y aparecen en la pantalla gráfica 
los ejes de coordenadas. Previamente el programa da 
opción a tres escalas distintas: la primera establece que 
cada 10 pixels, es decir, cada marca dibujada en los 
ejes, corresponden a 1 puntos, la segunda hace que 
cada marca corresponda a un punto, y la tercera da a 

cada marca el valor de 0.1 punto. 
Estas tres escalas facilitan las visiones de las distintas 
funciones, pero normalmente la mejor es la segunda. 
Mientras las gráficas se dibujan en la parte superior de 
la pantalla, se irá trazando una línea negra, que indica el 
valor de X en ese instante. En cualquier momento se 
puede pulsar STOP, con lo que el programa volverá a 
preguntar cuántas gráficas simultáneas y el proceso 

volverá a empezar. 
Las cinco gráficas que el programa posee inicialmente 
son las de una hipérbola con sus asíndotas y el seno de 
X. Si observas las definiciones de funciones, en F1 y F2 
están los dos signos posibles de la hipérbola: 
-[SQR((-1+(Xa2)/25)*9)], y +[SQR((-1 +(Xa2)/ 
25)*9)], deducidas de la fórmula general de la hipérbola 
siendo a=5 y b=3 



a 2 b 2 



25 9 



Con esta misma fórmula general el usuario puede definir 
otras hipérbolas. Las asíndotas están también definidas 



en dos funciones por la ambigüedad de su signo 
deducidas también por la fórmula de la asíndota 

+b * 
y = x 

—a 

quedando así FNF3(X)= + (3/5)*x y FNF4(X)=-(3/5)*X. 
La función seno es, sencillamente, FNF5(X)=SIN(X). 
El programa tiene una rutina de tratamiento de errores, 
por lo que no importa si la función introducida da algún 
error matemático en un punto de su recorrido: el 
programa simplemente lo ignorará. 
La carencia de ningún tipo de periférico para dibujo 
impide darle salida al exterior, pero si algún lector 
cuenta con periféricos apropiados, le será seguramente 
muy fácil adaptarle el programa. A continuación se 
adjuntan una serie de funciones útiles ya escritas en 
forma informática, de modo que el usuario no tiene más 
que copiarlas y ver el resultado, así como cambiarles 
algo; después de diversas pruebas se encuentran 

funciones con gráficas muy curiosas. 
(Los números entre paréntesis junto a los títulos 
corresponden* al número de funciones simultáneas que 
debe ser indicado al ordenador.) 
—Funciones lineales (1): FNF1(X)=2*X+1 
—Parábolas (1): FNF1(X) = Xa2+2*X+3 
—Función seno (1): FNF1(X)=SIN(X) 
—Función coseno: FNF1(X)=COS(X) 
—Función tangente: FNF1(X)=TAN(X) 
—Función secante: FNF1(X)=1/COS(X) 
— Funciones trigonométricas: aparecen en los manuales 
ya establecidas en forma informática. 
—Circunferencia (2): FNF1(X)=+SQR(25-Xa2) 
FN F2(X) = - SQR(25 - X a 2) 
(25 es el radio de la circunferencia al cuadrado, es decir, 
R=5; la función se deduce de la fórmula de la 
circunferencia centrada en el origen: x 2 + y 2 = r 2 ) 
—Elipse (2): FNF1(X) = + SQR((1 -Xa2/25)*9) 
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FNF2(X)-SQR((1 -X a2/25)*9) 
(25 es el cuadrado de a, distancia del centro a los 
puntos donde la elipse corta al eje X, y 9 es el cuadrado 
de b, distancia del centro al punto donde corta la elipse 
al eje Y; a es 1/2 de eje mayor y b es 1/2 del eje 
menor.) La ecuación general es: 

x 2 y 2 
a 2 b 2 

Éstos son algunos ejemplos de gráficas, pero según los 
conocimientos matemáticos que tengáis podréis hacer 

muchas más funciones. Las dos últimas figuras y la 
hipérbola son funciones cónicas y todas necesitan dos 
funciones simultáneas por estar la incógnita y elevada al 
cuadrado (la raíz cuadrada tiene doble signo). Cualquier 
lector que haya empezado el álgebra simplemente es 
posible que obtenga bastante provecho de este 
programa. 

EXPLICACION DEL PROGRAMA 

Puede ser grabado con cualquier forma de grabación de 
programa BASIC. Está dividido en las siguientes partes: 



Líneas 10-70: 
Líneas 80-350: 

Líneas 360-630: 

Líneas 640-840: 

Líneas 850-1000: 
Líneas 1010-1110: 

Líneas 1110-1230: 



Líneas 1240-1680 
Líneas 1690-1780 
Líneas 1790-1880 



REMs y preparativos 
Primera parte de la 
presentación 
Segunda parte de la 
presentación 

Introducción de funciones a 
dibujar 

Selección de escalas 
Dibujo de los ejes de 
coordenadas 
Definición de funciones y 
establecimiento del primer 
punto de cada una 
Dibujo de las funciones 
Tratamiento de errores 
Subrutina de igualación de los 
dos puntos en el LINE 



Solamente se pueden omitir las dos partes de la 
presentación, que, a fin de cuentas, todo lo que hacen 
es intentar adornar el programa, pero pueden serviros 
siempre las técnicas de gráficos y presentación de otros 
programadores. Hasta la línea 1000 todo lo que hay son 
menús e introducciones de datos necesarios para el 

programa. La introducción de funciones se hace 
mediante la corrección de las líneas donde se hallan 
definidas las funciones. Este método implica la 
interrupción del programa, realizada necesariamente al 
incluir el LIST. Esto se podría evitar introduciendo las 
nuevas funciones en lugar de las antiguas por medio de 



POKEs en el área de memoria del programa BASIC, 
pero es muy complicado y esta forma nos vale y es más 

fácil de entender. 
El número de funciones simultáneas se almacena en H 
y se guarda previamente en &HCOOO para evitar que 
se pierda en la interrupción del programa. Esto permite 
que si se desean .dibujar más o menos funciones de las 
que se han corregido, no haya más que cambiar el 
contenido de dicha dirección de memoria antes de 
pulsar F1. La escala elegida se almacena en la variable 

ES en la línea 1000. 
La parte, sin duda, más complicada del programa es el 
dibujo de las gráficas, que empieza en la línea 1240. La 
línea 1270 es un bucle, en el que I es el valor que va 

adoptando la incógnita X en todas las funciones 
simultáneas. La variable X es la coordenada x de la 
pantalla. X e I son distintas porque los ejes de 
coordenadas que aparecen en la pantalla dibujados no 
coinciden con las coordenadas de la pantalla gráfica, ya 

que ésta no tiene valores negativos. Así, se han 
trasladado los ejes 127 puntos a la derecha y 96 puntos 
abajo; es por eso que las coordenadas nunca coinciden. 

Y es la variable correspondiente a la función F1(X) 
cuando X=l, debidamente adaptada a las coordenadas 
de la pantalla. 
Una vez establecidas las coordenadas, el programa 
comprueba si la distancia entre el punto de la gráfica 
anterior y el actual es mayor que la altura de la pantalla; 

si esto es así, iguala los dos puntos-mediante la 
subrutina destinada a ello. Esto es para que no crucen 
la pantalla rectas que unan puntos que tienden a infinito 
con puntos que tienden a cero, como puede ser el caso 
de la función tangente, y ocurre en las líneas 1290, 
1370, 1450, 1530 y 1610. No hemos advertido antes 
que las coordenadas de puntos anteriores, es decir, 
primeras coordenadas de LINE, están denominadas con 

las variables X1 e Y1 , X2 Y2, X3 Y3... 
Después de todo esto, comprueba que la Y ni es menor 
que cero ni mayor que 192. Si esto es afirmativo, traza 
la línea con normalidad pero pon la variable K1 o L1 (en 
el caso de la primera gráfica), a 1, de manera que si el 
siguiente punto es también mayor que 192 o menor que 
cero ya no dibuje nada, para que así no aparezca una 
incorrecta línea blanca en el extremo superior o inferior 
de la pantalla. Esta operación la realiza en las líneas 
f 300-1 330, 1380-1410, 1460-1490, y 1540-1570 y, 
además de evitar el dibujo, actualiza las coordenadas de 
puntos anteriores para que el dibujo siga con normalidad 
en el momento en que las coordenadas estén dentro de 
la pantalla. 

Una vez realizadas estas operaciones previas, el 
programa dibuja la recta unión entre el punto anterior y 

el actual y comprueba si ésa es la última de las 
funciones que debe dibujar; si no lo es, sigue adelante, 
y sí lo es, vuelve a empezar dando un nuevo valor a la I. 
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Si en cualquier momento hay un error, el programa salta 
a la rutina específica. Ésta comprueba si el error se ha 
dado en las líneas de cálculo de la función para el valor 

determinado de X. Si esto es así, lo niás probable es 
que se trate de un error matemático o de que la función 
no es real o no existe en esa zona, por lo que evita que 

se' dibuje nada dando a Y un valor menor que cero y 
actualizando los puntos anteriores; el próximo valor real 

se imprimirá con normalidad. Si el error es «lllegal 
function cali» (5), es posiblemente por una raíz cuadrada 
con índice negativo, así que le da a Y el valor 96, 

situando el punto en el eje. 
Bien, como podréis ver el programa básicamente es 
sencillo aunque aparezca un poco embrollado. No 
obstante, os dará buenos resultados. 

100 PRIÑT:PRINT"GRAFICAS M 
200 PRINT:PRINT" 
650 ' INICIO PROCESO 
660 ' 

670 :KEY1 I CHR$(12) + "RUN840"+CHR$(13) 
680 SCREEN0:COLOR4,15:KEYOFF 
690 PRINT"(CUANTAS FUNCIONES SIMULTANEAS 
(1/5)?" 

700 A$=INKEY$:IFA$=""THEN700 
710 ' 

720 1 INTRODUCCION FUNCIONES 
730 ' 

740 ON VAL(A$) GOTO760, 770,780, 790, 800 
750 GOTO700 

760 H = 1:GOSUB810:LIST1140 
770 H = 2:GOSUB810:LIST1140-1150 
780 H=3:GOSUB810:LIST1140-1160 
790 H=4:GOSUB810:LIST1140-1170 
800 H = 5:GOSUB810:LIST1140-1180 
810 CLS:PRINT'*ESCRIBA LAS FUNCIONES 

ENCIMA DE LAS" 
820 PRINT:PRINT"ANTERIORES Y PULSE 

F1*':POKE&HC000,H 
830 PRINT:RETURN 
840 CLS:H = PEEK(&HC000) 
850 1 

860 ' PROGRAMA PRINCIPAL (DIBUJO) 
870 1 

880 * SELECCION ESCALAS 
890 * 

900 ON ERROR GOTO1720: ON STOP 

GOSUB1880:STOPON 
910 C0L0R4,15,8:C=15 
920 CLS 

930 PRINT"ELIJA ESCALA:" 

940 PRINTrPRINT" 1- 10 PIXELS = 10 PUNTOS" 



950 PRINT:PRINT" 2- 10 PIXELS = 1 PUNTO" 
960 PRINT:PRINT" 3- 10 PIXELS =0.1 PUNTOS" 
970 PRINT:PRINT"(QUE DESEA? (1/3)" 
980 Q$ = INKEY$:IFQ$=""THEN980 
990 IFVAL(Q$)<1ORVAL(Q$)>3THEN980 
1000 ES=10a(VAL(Q$)-1) 
1010 ' 

1020 1 DIBUJO EJES 
1030 ' 

1040 C0L0R15,4,8:SCREEN2 
1050 LINE(0,96)-(255,96),C 
1060 LINE(127,0)-(127,191),C 
1070 FORI=96TO192STEP10:LINE(124,I)-(130, 
l),C:NEXTI 

1080 FORI = 96TO0STEP-10:LINE(124,I)-(130,I), 
C:NEXTI 

1090 FORI = 127TO255STEP10:LINE(I,93)-(I,99), 
C:NEXTI 

1100 FORI = 127TO0STEP-10:LINE(I,93)-(I,99), 

CrNEXTI 
1110 ' 

1120 ' FUNCIONES Y PUNTO INICIAL 
1130 ' 

1140 DEFFNF1(X) = SQR ((- 1 +(Xa2)/25)*9) 
1150 DEFFNF2(X) = -SQR ((- 1+(Xa2)/25)*9) 
1160 DEFFNF3(X) = (3/5)*X 
1170 DEFFNF4(X) = -(3/5)*X 
1180 DEFFNF5(X) = SIN(X) 
1190 X=7:Y = FNF1(-120/ES): 

Y=96-(Y*ES):X1=X:Y1 = Y 
1200 Y=FNF2(-120/ES): 

Y=96-(Y*ES):Y2=Y:X2=X 
1210 Y = FNF3(-120/ES): 

Y=96-(Y*ES):Y3=Y:X3=X 
1220 Y=FNF4(-120/ES): 

Y=96-(Y*ES):Y4=Y:X4=X 
1230 Y=FNF5(-120/ES): 

Y=96-(Y*ES):Y5=Y:X5=X 
1240 ' 

1250 ' DIBUJO DE LAS 5 GRAFICAS 
1260 ' 

1270 FORI = -120/ESTO120/ESSTEP1/ES: PSET(X, 

0),1:PSET(X-6,0) 1 1 
1280 X=I*ES:X=127+X:Y=FNF1(I): 

Y=Y*ES:Y=96-Y 
1290 IF ABS(Y1-Y)>192 THEN K= 1:GOSUB1820 
1295 IFY1 = -1 AND Yo-1 THEN Yl =Y 
1300 IFY>0 THEN K1=0 
1310 IFY<192 THEN L1 = 
1320 IF Y< = THEN IF Kl = l THEN 

K=1:GOSUB1820 : GOTO1350 ELSE Kl = l 
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1330 IF Y> = 192 THEN IF Ll = l THEN 

K=1:GOSUB1820:GOTO1350 ELSE Ll = l 

1340 PSET(X1,Y1),C:LINE-(X,Y): PSET(X,0), 
1:X1=X:Y1 = Y 

1350 IF H= 1THEN 1670 

1360 Y=FNF2(I):Y=Y*ES:Y=96-Y 

1370 IF ABS(Y2-Y)>192 THEN K = 2:GOSUB1820 

1375 IF Y2 = — 1 AND Y<>-1 THEN Y2=Y 

1380 IFY>0 THEN K2=0 

1390 IFY<192 THEN L2 = 

1400 IF Y<=0 THEN IF K2=l THENK = 2:G0SUB 

1820 : GOTO1430 ELSE K2 = l 
1410 IF Y>=192 THEN IF L2=l THEN 

K=2:GOSUB1820:GOTO1430 ELSE L2=l 
1420 PSET(X2,Y2),C:LINE-(X 1 Y),C:X2=X:Y2=Y 
1430 IFH = 2THEN1670 
1440 Y = FNF3(I):Y=Y*ES:Y=96-Y 



1450 IF/\BS(Y3-Y)>192 THEN K = 3:GOSUB1820 

1455 IF Y3 = -l AND Y<>-1 THEN Y3=Y 

1460 IFY>0 THEN K3=0 

1470 IFY<192 THEN L3 = 

1480 IF Y< = THEN IF K3 = l THEN 

K=3:GOSUB1820 : GOTO1510 ELSE K3 = l 
1490 IF Y> = 192 THEN IF L3=l THEN 

K = 3:GOSUB1820:GOTO1510 ELSE L3 = l 
1500 PSET(X3 I Y3),C:LINE-(X,Y),C:X3=X:Y3=Y 
1510 IFH = 3THEN1670 
1520 Y=FNF4(I):Y=Y*ES:Y=96-Y 
1530 IF ABS(Y4-Y)>192 THEN K=4: GOSUB 

1820 

1535 IF Y4=-l AND Y<>-1 THEN Y4=Y 
1540 IFY>0 THEN K4=0 
1550 IFY<192 THEN L4=0 



1560 IF Y< = THEN IF K4=l THEN 

K=4:GOSUB1820 : GOTO1590 ELSE K4=l 

1570 IF Y>=192 THEN IF L4=l THEN 

K=4:GOSUB1820:GOTO1590 ELSE L4=l 

1580 PSET(X4,Y4),C:LINE-(X,Y),C:X4=X:Y4=Y 

1590 IFH=4THEN1670 

1600 Y=FNF5(I):Y=Y*ES:Y=96-Y 

1610 IF ABS(Y5-Y)>192 THENK = 5: GOSUB 
1820 

1615 IF Y5 = -l AND Yo-1 THEN Y5=Y 

1620 IFY>0 THEN K5=0 

1630 IFY<192 THEN L5=# 

1640 IF Y<=0 THEN IF K5=l THEN K = 5; 

GOSUB1820: GOTO1670 ELSE K5=l 
1650 IFY>=192 THEN IF L5=l THEN 

K = 5:GOSUB1820:GOTO1670 ELSE L5=l 
1660 PSET(X5,Y5),C:LINE-(X ( Y) 1 C:X5=X:Y5=Y 
1670 NEXTI 
1680 GOTO1680 
1690 ' 

1700 1 RUTINA TRATAMIENTO DE 

ERRORES 
1710 ' 

1720 IF ERL=1280 THEN 

Y=-1:K=1:GOSUB1820: 

RESUME 1350 
1730 IF ERL=1360 THEN 

Y=-1:K = 2:GOSUB1820: 

RESUME1430 
1740 IF ERL=1440 THEN 

Y=-1;K = 3:GOSUB1820: 

RESUME1510 
1750 IF END1520 THEN Y=- 1:K=4:GOSUB1820: 

RESUME 1590 
1760 IF ERL=1600 THEN 

Y=-1:K = 5:GOSUB1820: 

RESUME1670 
1770 IF ERR = 5 THEN Y=96: 

RESUME NEXT 
1780 RESUME NEXT 
1790 ' 

1800 ' RUTINA PUNTOS INICIALES 
1810 ' 

1820 IF K=l THENX1=X:Y1=Y 
1830 IF K = 2 THENX2=X:Y2=Y . 
1840 IF K = 3 THENX3=X:Y3=Y 
1850 IF K=4 THENX4=X:Y4=Y 
1860 IF K = 5 THENX5=X:Y5=Y 
1870 K = 0:RETURN 
1880 GOTO680 
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MASACR AVENUSINOS : 
DUELO ESPACIAL 



Las naves enemigas atacaban la Tierra en 
vandálicas hordas de terror y desolación. Los 
combatientes caían como moscas por las ráfagas 
kamikazes de los venusinos y solarianos. 

Diezmadas las defensas humanas, sólo quedaba 
INPUT-KID para conseguir repeler el fuego infernal de 
los planetas calientes. Cual caballero andante y errante, 
partió solo, armado por su pequeño rayo destructor. Su 
muerte sería en vano si no alcanzaba a derrotar toda la 
flota estelar atacante... 
Teclea el siguiente listado, ponte a los mandos de tu 
nave SSMSX Enterprise y ¡suerte! 

100 CLEAR 400:COLOR15,1,1:SD=0: 

NL = 3:P1=0:P2 = 0:X=127 
110 OPEN "GRP:" AS #1 
120 NE = INT(RND(-TIME)*40)+1 
130 IF NE<10 THEN 120 
140 SCREEN 
150 LOCATE 2,10 

160 INPUT "CUAL ES TU NOMBRE:";NO$ 
170 SCREEN 2,2,0 
180 PSET (5,10), 1:PRINT#1, "CPU" 
190 PSET (6,10), 1:PRINT#1, "CPU" 
200 PSET (80,10), 1:PRINT#1,N0$ 
210 PSET (81,10), 1:PRINT#1,N0$ 
220 PSET (185, 10), 1:PRINT#1, "NAVES" 
230 PSET (186, 10), 1:PRINT#1, "NAVES" 
240 FOR HH = 1 TO 50 

250 PSET (INT(RND(1)*256),INT(RND(1)*191)), 

INT(RND(1)*15)+1 
260 NEXT HH 

270 LINE (0, 185)-(256, 191),2,BF 
280 PSET (30,10), 1:PRINT#1,P1 
290 PSET (230, 10), 1:PRINT# 1,NL 



300 PSET (125, 10), 1:PRINT# 1,P2 
310 A1$=CHR$(32): A2$ = CHR$(1 13): 

A3$ = CHR$(119): A4$=CHR$(127) 
320 A5$ = CHR$(127):A6$ = CHR$(127):A7$=C 

HR$(255):A8$ = CHR$(255) 
330 B1$ = CHR$(127):B2$ = CHR$(63):B3$ = CH 

R$(63):B4$ = CHR$(63) 
340 B5$ = CHR$(63):B6$ = CHR$(63):B7$ = CHR 

$(252):B8$ = CHR$(240) 
350 C1$ = CHR$(4):C2$ = CHR$(142):C3$ = CHR 

$(238):C4$ = CHR$(254) 
360 C5$ = CHR$(254):C6$ = CHR$(254):C7$=C 

HR$(255):C8$ = CHR$(255) 
370 D1$ = CHR$(254):D2$ = CHR$(252):D3$ = C 

HR$(252):D4$ = CHR$(252) 
380 D5$ = CHR$(254):D6$ = CHR$(254):D7$ = C 

HR$(63):D8$ = CHR$(15) 
390 E1$ = CHR$(165):E2$ = CHR$(165) 
400 F1$ = CHR$(60):F2$ = CHR$(126):F3$ = CHR 

$(255):F4$ = CHR$(126) 
410 F5$ = CHR$(24):F6$ = CHR$(126):F7$ = CHR 

$(189):F8$ = CHR$(66) 
420 G1$ = CHR$(36):G2$ = CHR$(36):G3$ = CHR 

$(165):G4$ = CHR$(36) 
430 G5$ = CHR$(36):G6$ = CHR$(165):G7$ = CH 

R$(36):G8$ = CHR$(36) 
440 H$ = CHR$(66) 
450 F$ = F1$ + F2$ + F3$ + F4$ + F5$ + 

F6$+F7$+F8$ 
460 G$=G1$+G2$+G3$+G4$+G5$+ 

G6$+G7$+G8$ 
470 SPRITE$(1) = E1$ + E2$ 
480 A$=A1$+A2$+A3$+A4$+A5$+ 

A6$+A7$+A8$ 
490 B$=B1$+B2$+B3$+B4$+B5$+ 
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B6$ + B7$ + B8$ 
500 C$=C1$ + C2$+C3$ + C4$+C5$ + 

C6$+C7$+C8$ 
510 D$=D1$ + D2$+D3$ + D4$ + D5$ + 

D6$+D7$+D8$ 
520 I$=ll$ + I2$ + I3$ + I4$ + I5$ + 

I6$ + I7$ + I8$ 
530 J$=J1$+J2$+J3$+J4$+J5$ + 

J6$+J7$+J8$ 
540 K$ = K1$ + K2$+K3$ + K4$ + K5$+ 

K6$+K7$+K8$ 
550 L$ = L1$ + L2$ + L3$ + L4$ + L5$+ 

L6$ + L7$ + L8$ 
560 SPRITE$(0)=A$ + B$ + C$+D$ 
570 SPRITE$(2) = F$ 
580 SPRITE$(3) = H$ 
590 SPRITE$(4)=G$ 
600 SPRITE$(5) = I$+J$+K$+L$ 
610 SPRITE ON 
620 ON SPRITE GOSUB 1510 
630 D=STICK(0) 
640 IF D=3 THEN X=X+8 
650 IF D=7 THEN X=X-8 
660 IF NL=0 THEN GOTO 1690 
670 IF NE=<0 THEN GOTO 1690 
680 IFX=<1 THEN X=l 
690 IFX=>255 THEN X=255 
700 PUT SPRITE 0,(X f 165), 10,0 
710 IF DD=1 THEN 730 
720 PUT SPRITE 1,(X+4,160), 10,1 
730 IF INKEY$ = " " THEN DD=1 : 

GOSUB 810 
740 IF DD=1 THEN GOSUB 860 
750 IF SD=0 THEN GOTO 760 ELSE 780 
760 NP=INT(RND(-TIME)*6)+1:SD=1 
770 CN = INT(RND(1)*15)+1:IF CN = 1 OR CN = 

OR CN=8 OR CN = 10 THEN GOTO 770 
780 ON NP GOSUB 910,1010,1110,1210,1310, 

1410 

790 PUT SPRITE 2,(T,U),CN,2 

800 GOTO 630 

810 REM DISPARO 

820 R1=X:PLAY "08V15L63FG" 

830 R2=160 

840 RETURN 

850 REM 

860 REM CONTINUACION DEL DISPARO 
870 R2 = R2-8 

880 PUT SPRITE 1, (R1+4.R2), 10,1 
890 IF R2 = <0 THEN DD=0 
900 RETURN 



910 REM RUTINA MOVIMIENTO 1 

920 IF U<20 THEN T=T+2:U = U + 1 

930 IF U<40 AND U = >20 THEN T=T+4:U = U+4 

940 IF U<60 AND U = >40 THEN T=T-4:U = U+4 

950 IF U<80 AND U = >60 THEN T=T-5:U = U+4 

960 IF U<100 AND U = >80 THEN 

T=T+6:U = U+4 
970 IF U<130 AND U = >100 THEN 

T=T-4:U = U + 5 
980 IF U<180 AND U = >130 THEN U = U+8 
990 IF U>= 180 JHEN 

SD=0:T=127:U=1:P1 = PH-50:LINE (28, 

0)-(65,20),l,BF:PSET (30, 10), lrPRINT #1, 

P1:NE=NE-1 
1000 RETURN 

1010 REM RUTINA MOVIMIENTO 2 
1020 IF U<20 THEN T=T+4:U = U + 5 
1030 IF U<40 AND U = >20 THEN 

T=T-3:U = U + 1 
1040 IF U<60 AND U = >40 THEN 

T=T-3:U = U+4 
1050 IF U<80 AND U = >60 THEN 

T=T+6:U = U+6 
1060 IF U<100 AND U = >80 THEN 

T=T-5:U = U+4 
1070 IF U<130 AND U = >100 THEN 

T=T-l:U = U + 7 
1080 IF U<180 AND U = >130 THEN U = U + 7 
1090 IF U>=180 THEN 

SD=0:T=127:U=1:P1 = P1 + 50:LINE (28, 

0)-(65,20),l,BF:PSET (30, 10), lrPRINT #1, 

P1:NE = NE-1 
1100 RETURN 

1110 REM RUTINA MOVIMIENTO 3 
1120 IF U<20THEN T=T-4:U = U+3 
1130 IF U<40AND U = >20 THEN 

T=T-4:U = U+1 
1140 IF U<60 AND U = >40 THEN 

T=T-4:U = U+4 
1150 IF U<80 AND U = >60 THEN 

T=T+12:U = U+6 
1160 IF U<100 AND U = >80 THEN 

T=T-6:U = U+4 
1170 IF U<130 AND U = >100 THEN 

T=T-5:U = U + 7 
1180 IF U<180 AND U = >130 THEN 

U = U+8:T=T+10 
1190 IF U> = 180 THEN 

SD=0:T=127:U=0:P1 = P1 + 50:LINE (28, 

0)-(65,20),l,BF:PSET (30, 10), 1:PRINT #1, 

Pl:NE = NE-.l 
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1200 RETURN 

1210 REM RUTINA MOVIMIENTO 4 

1220 IF U<20 THEN T=T+l:U = U + 3 

1230 IF U<40 AND U = >20 THEN T=T+1:U = U + 1 

1240 IF U<60 AND U = >40 THEN T=T+4:U = U+4 

1250 IF U<80 AND U = >60 THEN 

T=T-12:U = U+4 
1260 IF U<100 AND U = >80 THEN 

T=T+6:U = U+4 
1270 IF U<130 ANDtl = >100 THEN 

T=T-5:U = U + 1 
1280 IF U<180 AND U = >130 THEN 

U = U + 5:T=T+10 
1290 IF U> = 180 THEN SD=0:T=127:U=0: 

P1 = P1 + 50:LINE (28,0)-(65,20),l,BF:PSET 

(30,10),1:PRINT #1,P1:NE=NE-1 
1300 RETURN 

1310 REM RUTINA MOVIMIENTO 5 
1320 IF U<20 THEN T=T-18:U = U+8 
1330 IF U<40 AND U = >20 THEN 

T=T+18:U = U + 8 
1340 IF U<60 AND U = >40 THEN 

T=T+18:U = U+8 
1350 IF U<80 AND U = >60 THEN 

T=T-36:U = U+8 
1360 IF U<100 AND U = >80 THEN 

T=T+18:U = U+8 
1370 IF U<130 AND U = >100 THEN 

T=T-18:U = U+8 
1380 IF U<180 AND U = >130 THEN 

U = U + 8:T=T+18 
1390 IF U> = 180 THEN SD=0:T=127:U=0: 

P1 = P1 + 50:LINE (28,0)-(65 I 20),l,BF: 

PSET (30,10), 1:PRINT #1,P1:NE=NE-1 
1400 RETURN 

1410 REM RUTINA MOVIMIENTO 6 
1420 IF U<20 THEN T=T-1:U = U + 1 



1430 IF U<40 AND U = >20 THEN T=T+1:U = U + 1 
1440 IF U<60 AND U = >40 THEN T=T+1:U = U + 1 
1450 IF U<80 AND U = >60 THEN T=T-1:U = U + 1 
1460 IF U<100 AND U = >80 THEN 

T=T+1:U = U + 1 
1470 IF U<130 AND U = >100 THEN 

T=T-1:U = U + 1 
1480 IF U<180 AND U = >130 THEN 

U = U + 1:T=T+1 
1490 IF U> = 180 THEN SD=0:T=127:U=0: 

P1 = P1 + 50:LINE (28,0)-(65,20),l,BF: 

PSET (30,10),1:PRINT # 1,P1:NE=NE- 1 
1500 RETURN 

1510 REM RUTINA DE EXPLOSION 

1520 IF U = >155 THEN GOTO 1610 

1530 PUT SPRITE 2,(200,0), 0,2 

1540 PUT SPRITE 4,(T,U),8,4 

1550 PUT SPRITE 1,(220,0), 0,1 

1560 PLAY "L63V1501DECDEEDCDED" 

1570 FOR HH = 1 TO 300:NEXT HH 

1580 PUT SPRITE 1,(0,0), 0,1 

1590 PUT SPRITE 4,(10,0), 0,4 

1600 SD=0:T=127:U = 1:LINE (125,0)-(180,20), 
1,BF:P2=P2+8:PSET (125,10),1:PRINT #1, 
P2:NE = NE-l:GOTO 610 

1610 PUT SPRITE 0,(X,165),0,0 

1620 PUT SPRITE l,(X+4, 160), 0,1 

1630 PUT SPRITE 5,(X,165), 8,5 

1640 PLAY "L63V1501CCDDEEDDCCDDCC" 

1650 PUT SPRITE 2, (0,0), 0,2 

1660 FOR HH = 1 TO 500:NEXT HH 

1670 PUT SPRITE 5, (20,0), 0,5 

1680 X=127:T=127:U = 1:LINE (30,0)-(65,20), 1, 
BF:P1 = P1 + 100:PSET (30,10),1:PRINT#1, 
P1:NL=NL-1:LINE (230,0)-(256,20), 1, 
BFrPSET (230,10),1:PRINT #l,NL:GOTO 
610 

1690 CLS 

1700 SCREEN 0,0,0 
1710 PRINT "PUNTUACION:";NO$;P2 
1720 PRINT "PUNTUACION:CPU";Pl 
1730 PRINT 

1740 IF NL=0 THEN PRINT "HAN ABATIDO 

TODAS TUS NAVES":GOTO 1770 
1750 IF P1>P2 THEN PRINT "TE HAN VENCIDO" 
1760 IF P2>P1 THEN PRINT "HAS VENCIDO" 
1770 PRINT 

1780 PRINT "QUIERES VOLVER A JUGAR." 
1790 K$=INKEY$ 

1800 IF K$="S" OR K$="s" THEN RUN 
1810 IF K$ = "N" OR K$="n" THEN END 
1820 GOTO 1790 
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BIBLIOTECA 
DE DATOS (II) 



■ 


RECUPERACION E IMPRESION 


DE DATOS EN PANTALLA 


■ 


FUNCION DE CADA LINEA 


■ 


RUTINA DE ORDENACION 


DE DATOS 



¡Hola!, ya estamos aquí de nuevo. 
Este mes trataremos de las rutinas de 
BUSQUEDA, MODIFICACION y OR- 
DENACION de fichas. Siempre y 
cuando antes las hayas almacenado en la 
memoria. 

Iniciamos la rutina con un bucle 
FOR-NEXT con el número de fichas 
que queramos abrir (en nuestro caso 
son cien). 

Pedimos el número de ficha que 
queremos conocer mediante un IN- 
PUT, y automáticamente los datos 
aparecerán en la pantalla. Como éstos 
están almacenados en memoria me- 
diante la instrucción DIM. como res- 
puesta a INPUT, los datos son recu- 
perados e impresos en pantalla. Esto 
lo efectúa la rutina que va desde la lí- 
nea 1620 hasta la 1650. Antes de ce- 
rrar el bucle, el ordenador nos pre- 
guntará si queremos analizar más fi- 
chas, en caso negativo, siempre retor- 
naremos al MENU DE OPCIONES. 
En caso contrario, nos preguntará de 
nuevo qué ficha queremos ver, así una 
y otra vez. 

Ahora estudiaremos las funciones 
de cada línea para que sea compren- 
sible el funcionamiento de la rutina de 
BUSQUEDA. Bien, la línea 1600 se 
encarga de preguntarnos el número de 
la ficha que queremos buscar, la 1610 
simplemente imprimirá el número de 
ficha y desde la 1620 hasta la 1650 im- 
primirá en pantalla los campos que 
queremos observar. La línea 1660 nos 
preguntará si queremos ver más fi- 
chas, en caso afirmativo la línea 1600 
volverá a pedirnos el número de ficha, 
en caso contrario retornaremos al 
menú. 

La rutina de MODIFICACION de 
fichas funciona de la siguiente forma. 
La línea 1800 nos pregunta el número 
de ficha que queremos modificar. Las 
líneas 1820 a 1850 tienen la misión de 
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imprimir los datos de los diferentes 
campos de las fichas: la rutina de mo- 
dificación comienza en sí a partir de la 
línea 1870. Hemos elegido el método 
de numerar los campos por su senci- 
llez, si elegimos el campo «1». modi- 
ficaremos el título, en el campo «2» 
modificará el autor, etc.. La infor- 
mación modificada quedará almace- 
nada en el mismo lugar dentro de la 
matriz que ocupaban los datos modi- 
ficados por el hecho de modificar da- 
tos, la matriz ni aumenta ni dismi- 
nuye, tan sólo es modificada y esto no 
significa pérdida de memoria. Como 
veréis, las rutinas que se necesitan 
para crear un fichero no son nada 
complicadas, aún más, la forma de 
crear ficheros es variada y puede com- 
plicarse más con rutinas más perfec- 
tas, pero menos asequibles al enten- 
dimiento de los que estén aprendiendo 
a clasificar bloques de información. 

A continuación os damos una sen- 
cilla rutina de ordenación de datos que 
podréis utilizar en vuestros ficheros. 
Este método de Ordenación de Datos 
es conocido dentro del mundo de la 
Informática como «DICOTOMICO»; 
y de entre los variados métodos de or- 
denación de Listas es el más sencillo 
de usar. 

Otros métodos de Ordenación son 
los de BURBUJA (BUBBLE); BUR- 
BUJA CON MARCA; de CONCHA; 
etc.. El que nosotros usaremos es el 
más efectivo, aunque el más lento. 
Consiste en la ordenación de los ele- 
mentos de una matriz por compara- 
ción entre ellos. Es decir, llega a 
razonar que PEPE es mayor que AN- 
GEL y ANGEL es mayor que 
ANDRES. Comparando entre sí y or- 
denando de menor a mayor los datos 
con que trabaja. Una vez usada esta 
rutina quedarían los datos así: AN- 
DRES; ANGEL y PEPE. El mayor 
de ellos es colocado siempre en último 
lugar. 

Esta rutina trabaja de ta siguiente 
forma. En la línea 130 el ordenador 
nos pide el número de datos a orde- 
nar. En la línea 140 dimensionamos 
una matriz con el número de datos que 
hemos introducido e iniciamos dos bu- 
cles, uno que indicará las vueltas ne- 
cesarias para ordenar los datos y el se- 



gundo tiene la misión de ordenar sólo 
los dos últimos datos, o sea. el último 
y el penúltimo. En la línea 200 el pri- 
mero de los datos es comparado con 
el segundo, y si es menor o igual sal- 
taremos al NEXT (siguiente) y éste es 
almacenado en una variable que usa- 
remos de paso para ser más tarde re- 
cuperado y ordenado (línea 210). A 
continuación; en la línea 230 iguala- 
mos el dato con el siguiente, esto per- 
mite que el dato sea colocado en su si- 
tio; ya que A siempre irá antes que B 
en el alfabeto. a$(h) siempre irá antes 
que a$(b+l); por supuesto, ya están 
ordenados. El proceso se repite una y 
otra vez hasta que todos los datos sean 
comparados y ordenados. La línea 230 
se encarga simplemente de recuperar 
el «sitio» de ubicación del dato. 

Las líneas 300 a 320 tan sólo impri- 
mirán la lista ya ordenada. 

En el próximo artículo os daremos 
los métodos de Ordenación BUBBLE 
(burbuja); de CONCHA, etc.. que 
son rutinas estándar dentro de la pro- 
gramación de ficheros que os serán del 
todo útiles en vuestros propios progra- 
mas. 

10 CLS 

20 KEY 0FF 

20 > ************************* 
40 - * 

50 ' * RUTINA 
60 * * DE 
70 ' * ORDENACION 
80 ' * DE 
90 ' * DATOS 
100 ' * 

110 ' ************************ 
120 ' 

130 INPUT"NUMER0 DATOS A 

ORDENARAN 
140 DIM A$(N) 
150 F0R A=l T0 N 
160 INPUT"INTR0DUCE 

DAT0S";A$(A) 
170 NEXT A 
180 F0R A=l T0 N-l 
190 F0R B=l T0 N-l 
200 IF A$(B)< = A$(B+1) THEN 

GOTO 240 
210 X$ = A$(B) 
220 A$(B) = A$(B+1) 




230 A$(B+1) = X$ 
240 NEXT B 
250 NEXT A 
260 CLS 
270 LOCATE 10, 

10:PRINT"OR DEN ANDO 

DATOS" 
280 F0R A=l T0 500:NEXT 
290 CLS 

300 F0R A=l T0 N 
310 PRINTA$(A) 
320 NEXT 

1500 REM * ****************** 
1510 REM * 

1520 REM * BUSQUEDA DE * 
FICHA 

1530 REM * 

1540 REM * ****************** 

1550 CLS 

1560 LOCATE 10, 
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1:PRINT"BUSQUEDA DE 

FICHAS" 
1570 LOCATE 10, 

1:PRINT"BUSQUEDA DE 

FICHAS" 
1580 LOCATE 10,2:PRINT"@<§ 

(a (<( (a (a (a (a (a (a (a (a (a (a 

(5)(a)(a)(a)" 
1590 FOR X=l TO 100 
1600 LOCATE 1,22:INPUT "QUE 

FICHA" ; X:GOSUB 610 
1610 LOCATE 13, 

4:PRINT"FICHA NUM: "¡X 
1620 LOCATE 10, 

8:PRINT"TITUL0 : "; 

TIT$(X);SPC(10) 
1630 LOCATE 10, 

10:PRINT"AUTOR : "; 

AUT$(X);SPC(10) 
1640 LOCATE 10, 



12:PRINT"EDITORIAL : "; 

EDI$(X) ; SPC(10) 
1650 LOCATE 10, 

14:PRINT"0BSRVCNS : "; 

OBS$(X);SPC(10) 
1660 LOCATE 1,22:INPUT 

"MAS" ; R$ 
1670 IF R$ = "S" OR R$ = "s" 

THEN GOTO 1600 ELSE 

RETURN 
1680 NEXT 

1690 REM ******************* 
1700 REM * 

1710 REM * MODIFICACION * 
1720 REM * 

1730 REM ******************* 
1740 CLS 
1750 ' 
1760 ' 
1770 ' 



1780 LOCATE 9, 

l:PRINT"MODIFICACION 

DE FICHA" 
1790 LOCATE 9,2:PRINT"@@<§ 

@@(&@@@@@@@(a )@ 
(a (a (a (a (a (a " 

1800 LOCATE 1,22:INPUT"QUE 

FICHA" ; X 
1810 LOCATE 10, 

4:PRINT"FICHA NUM: 

";X 

1820 LOCATE 10,8:PRINT"1> 
TITULO : "; 
TIT$(X) 

1830 LOCATE 10, 10:PRINT"2> 
AUTOR : "; 
AUT$(X) 

1840 LOCATE 10, 12:PRINT"3> 
EDITORIAL "; 
EDI$(X) 

1850 LOCATE 10, 14:PRINT"4> 

OBSRVCNS : " 

;OBS$(X) 
1860 GOSUB 1910 
1870 LOCATE 10, 

22:INPUT"NUMERO 

CAMPO" ; A 

1880 REM *** RUTINA CAMPOS 

*** 

1890 IF A<1 OR A>4 THEN 

1860 
1900 IF A= 1 

THENGOSUB1940:LOCATE 

13,22:INPUT"TITULO"; 

TIT$(X) 
1910 IF A=2 

THENGOSUB1940:LOCATE 

13,22:INPUT"AUTOR"¡ 

AUT$(X) 
1920 IF A=3 

THENGOSUB1940:LOCATE 

13, 

22:INPUT"EDITORIAL"; 
EDI$(X) 
1930 IF A = 4 

THENGOSUB1940:LOCATE 

13,22: 

INPUT"OBSRVCNS"; 

OBS$(X) 
1940 LOCATE 1, 

22:PRINTSPC(30) 
1950 RETURN 
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LA ELEVACION A 
POTENCIAS 



Aquí tienes unas cuantas funciones 
matemáticas que tienen una gran can- 
tidad de aplicaciones prácticas, desde la 
medida de la superficie de tu casa hasta 
el cálculo de la velocidad de un cuerpo 
que cae. 

La potenciación o función potencial 

es una de las funciones matemáticas a 
las que con frecuencia no se les presta 
mucha atención y que, sin embargo, 
tiene una sorprendente variedad de 
usos, especialmente en los casos en 
que quieras calcular áreas o volúme- 
nes en tus programas. 

La función potencial se representa 
con el signo A en el ordenador. Se co- 
loca entre dos números, 2 A 3, por 
ejemplo, y se lee «dos elevado a la ter- 
cera potencia», o «dos elevado al 
cubo». (El código ASCII del signo es 
94.) 

Aunque al principio te pueda pare- 
cer confuso, en realidad la idea es muy 
simple. Un número elevado a una de- 
terminada potencia, que es un se- 
gundo número, es simplemente el pri- 
mer número multiplicado por sí 
mismo tantas veces como indique el 
segundo número. 

Según esto, si volvemos al ejemplo 
anterior, dos elevado a la tercera po- 
tencia es lo mismo que dos multipli- 
cado por dos tres veces; así: 

2 A 3 = 2*2*2 = 8 

Es igual para cualquier par de nú- 
meros. 
Por ejemplo: 

2 A 5 = 2*2*2*2*2=32 
5 A 4=5*5*5*5 = 625 

También puedes escribir los núme- 
ros en la forma 2 2 , 2\ 2 5 y 5 4 , que es 
la notación convencional para las ma- 
temáticas. Pero esta forma no la en- 
tiende el ordenador. 



La segunda y tercera potencia tie- 
nen nombre especial. Cualquier nú- 
mero elevado a la segunda potencia se 
dice que está elevado «al cuadrado». 

Análogamente, cualquier número 
elevado a la tercera potencia se dice 
que está elevado «al cubo». 

Realmente existen razones sólidas 
para utilizar los nombres asociados 
con estas dos potencias. 

Si intentas medir el área de un rec- 
tángulo (ya se trate de un trozo de cés- 
ped, una alfombra o cualquier otra en- 
tidad que tenga forma rectangular), lo 
que haces es medir su longitud y su an- 
chura y, a continuación, multiplicar 
una medida por otra. 

El resultado de este cálculo es un 
número de unidades «cuadradas». La 
razón de que un área se mida, por 
ejemplo, en metros cuadrados reside 
en que lo que realmente estás ha- 
ciendo es medir cuántos cuadrados de 
un metro de lado caben en la super- 
ficie que estás midiendo. 

Análogamente, un número elevado 
a la segunda potencia se dice que está 
elevado al cuadrado; la unidad de su- 
perficie o unidad cuadrada se repre- 
senta por la multiplicación de la uni- 
dad básica por sí misma. 

De la misma forma que la segunda 
potencia toma su nombre de la medida 
de superficies, la tercera potencia 
toma el suyo de la medida de volú- 
menes. Para encontrar el volumen de 
un cubo, se multiplica su anchura por 
su longitud y por su altura. Por eso ha- 
cen falta tres multiplicaciones de la 
unidad básica para encontrar el volu- 
men (dos para la superficie y una más 
para la altura); por ello se dice que un 
número elevado a la potencia tres está 
elevado «al cubo». 

MAS POTENCIAS 

A partir de aquí, ya no es posible 
construir un modelo acerca de lo que 



significa la elevación a potencias. Si 
fuera posible tener un objeto que tu- 
viera cuatro dimensiones, su volumen 
se mediría en unidades fundamentales 
elevadas a la cuarta potencia, lo cual 
es obviamente absurdo. Sin embargo, 
hay muchos cálculos en los que inter- 
vienen estas potencias superiores y re- 
sultan útiles por otras razones. 

Por ejemplo, supongamos que quie- 
res conocer la probabilidad de que al 
tirar un dado al aire salga como resul- 
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/ Programación 




■ 


1 A PIIMPIHM DDTCMPIAI 


■ 


HALLANDO EL AREA 


■ 


EL CUADRADO Y EL CUBO 




DE UN CUADRADO 




DE UN NUMERO 


■ 


RAICES CUADRADAS 


■ 


ELEVACION DE NUMEROS 


■ 


USO DE LA FUNCION SQR 




A POTENCIAS SUPERIORES 




EN UN PROGRAMA 



tado un seis. Es fácil: si suponemos 
que todas las caras tienen la misma 
probabilidad de quedar hacia arriba, 
la probabilidad de obtener un deter- 
minado número en particular es X 

Pero supongamos ahora que quieres 
conocer la probabilidad de obtener 
dos veces seguidas un 6. Tienes un 
sexto de probabilidades de que la pri- 
mera vez te salga un 6, y si esto sucede 
tienes otra vez un sexto de probabili- 



dades de que la siguiente vez salga un 
6. Por ello la probabilidad total es -R 

veces y En otras palabras, es -Rele- 
vado al cuadrado. Este mismo princi- 
pio se aplica para cualquier número de 
tiradas; así la probabilidad de que al 
tirar un dado siete veces seguidas apa- 
rezca las siete veces un 7 es 



i i i i i i i i 

6 6 6 6 6 6 6 6 



que, por 



cierto, es un número bastante pe- 
queño. 

Seguro que por lo menos has visto 
antes un caso de números elevados a 
potencias altas; te habrá aparecido en 
la conversión de números a binario. 
Cada dígito binario representa una po- 
tencia del número 2. Así en el número 
11111111 el primer dígito de la dere- 
cha (el bit 0) representa un 1, el se- 
gundo (bit 1) representa un 2, el ter- 
cero (bit 2) representa un 4, el cuarto 
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(bit 3) representa un 8, y así sucesi- 
vamente 16, 32, 64 y 128. 

Fíjate un poco más detalladamente: 
4 es 2*2, o, lo que es lo mismo, 2 ele- 
vado a la potencia 2; 8 es 2*2*2 o 2 
elevado a la potencia 3; 16 es 2*2*2*2, 
etcétera: 



2 A 2 = 2*2 =4 

2 A 3 = 2*2*2 =8 

2*4=2*2*2*2 =16 

.2 a 5=2*2*2*2*2 =32 

2*6=2*2*2*2*2*2 =64 

2 A 7 = 2*2*2*2*2*2*2 =128 



En la tabla anterior faltan dos va- 
lores. Aunque es muy fácil descubrir 
de qué valores se trata, la explicación 
puede resultar un poco sorprendente. 

El primero de éstos es 2 A 1. Es evi- 
dente que, de acuerdo a la analogía bi- 
naria, debe ser un 2. De hecho, por 
extensión, si 2 A 2 es 2 multiplicado 
por sí mismo una vez, 2 A 1 debería ser 
2 multiplicado por sí mismo una vez 
menos. Es decir, 2 no se multiplica por 
sí mismo en absoluto, permaneciendo 
como 2. 

El valor siguiente tal vez sea aún 
más sorprendente: 2 A 0. Podría ser 
que te esperaras que tuviera el valor 
0, pero si examinas los valores de la 
tabla anterior, observarás que le co- 
rresponde claramente el valor 1. Esto 
se debe a que ha de ser 2 multiplicado 
por sí mismo una vez. 1 es ya el nú- 
mero 2 una sola vez, la única manera 
en que se puede multiplicar por 2 una 
vez menos es dividiendo por 2. Y cual- 
quier número dividido por sí mismo 
es 1. 

Para comprobar todo esto u otros 
valores cualesquiera de potencias que 
desees experimentar, teclea lo si- 
guiente: 

PRINT 2 A X 

donde X es el valor que quieres com- 
probar; pulsa a continuación ENTER 
RETURN. Puedes probar con el valor 
que quieras (aunque con valores muy 
grandes puede que se te produzcan 
errores de desbordamiento). También 
puede ser que llegues a resultados bas- 
tante interesantes, por ejemplo, ¿qué 
sucedería si teclearas un valor fraccio- 
nario para la X, tal como el 0.5? Vol- 



veremos más adelante sobre este pro- 
blema, pero primero nos detendremos 
un poco más en las segundas potencias 
o cuadrados, que se utilizan amplia- 
mente. 



DIBUJANDO CUADRADOS 

El siguiente programa toma una se- 
rie de números que emplea para di- 
bujar en pantalla una serie de cuadra- 
dos, y muestra la longitud de cada cua- 
drado y su área. A continuación te 
permite tomar dos cuadrados cuales- 
quiera y comparar sus áreas. También 
te servirá para comprobar lo rápida- 
mente que crecen los cuadrados a me- 
dida que lo va haciendo el número 
base. Por último te permitirá formarte 
una idea más global y significativa de 
las potencias. 

10 COLOR15,0,0:CLS: 

WIDTH32:SCREEN2: 

OPEN"grp:"ASl 
20 PRESET (1,15): PRINT#1, 

"Long¡tud":PRESET (1, 

24):PRINT#1, 

"del":PRESET(l,33) : 

PRINT#l,"lado" 
30 PRESET (192,15):PRINT#1, 

"Area":PRESET(192,24): 

PRINT#l,"del": 

PRESETU92.33): PRINT#1, 

"cuadrado" 
40 Z=0 

50 F0RN=1T013 
60 M = N + 1:IF M> 

15THENM = M-14 
70 H = 71 + N*8: V=160-N*8 
80 LINE(71,160) - (H,V),M,B 
90 PSET (24,56+(104-N*8)): 

PRINT#1,N 
100 PSET(200,56+ 

(104-N*8)): PRINT#1,N*N 
110 FORF=1TO100: 

NEXTF:NEXTN 
120 PSET(8,172): PRINT#l,"Te 

gustaría comparar cualquier 

área mas (s/n) ? " 
130 A$ = INKEY$:IFA$ = 

""THENGOTO130 
150 IFA$o"s" 

ANDAo"n"ANDA$<> 
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"S"ANDAS$o"N" 

THEN130 
160 IF A$ = "n"ORA$ = "N" 

THENZ=1:GOTO300 
170 INPUTcual es el primer 

cuadrado cuya área quieres 

comparar?(l-13)";A: 

IFA<10RA> 13THEN170 
180 INPUT"y cual es la 

segunda?(l-13)" ; 

B:IFB<10RB > 13 

THEN180 
190 X=INT(A):Y=(B) 
200 IFX>YTHEN280 
205 CL0SE#1: CLS:WIDTH32: 

SCREEN2: OPEN"grp : "ASl 
210 PSET(5,12): PRINT#l,"La 

primera área se ajusta a 

la segunda"; Y A 2/X A 2 
215 PRESET(5,29): PRINT#1, 

"veces" 

220 H = 71+X*8: V=160-X*8 
222 LINE(71,160) - (H,V),15,B 
225 H = 71+Y*8: V=160-Y*8 
227 LINE(71,160) - (H,V),13,B 
230 PSET(15,174): PRINT#1, 

"Quieres comprar alguna 

mas? (s/n)" 
240 A$ = INKEY$: IFA$ = "" 

THENGOTO240 
250 IFA$o"n" ANDA$ = "N" 

ANDA$o"s" 

ANDA$o"S" 

THENGOTO250 
260 IFA$="n" ORA$ = "N" 

THENZ= 1: GOTO300 
270 GOTO170 

280 CLOSE#l: CLS:WIDTH32: 
SCREEN2: OPEN"grp:"ASl 

285 PSET(5,12):PRINT#l,"La 
primera área se ajusta a 
la segunda";X A 2/Y A 2 

286 PRESET(5,29): PRINT#1, 
"veces" 

290 GOTO220 

300 IFZ= 1THEN CLOSE#l- 

CLS:Z=0 
305 WIDTH32: SCREEN2: 

OPEN"grp : "ASl 
310 PSET(25,100) : 

C0L0R8.PRINT#1," Pulsa 

para verlo de nuevo 

*':F0RF=1T015: PSET(25, 



100):COLOR15:PRINT#1," 
Pulsa para verlo de nuevo 
":A$ = INKEY$:IFA$ = "" 
THENGOTO310 

320 IFA$ = "N" ORA$ = "n" 
THENEND 

330 RUN 

El ordenador va dibujando un cua- 
drado cada vez, empezando por el más 
pequeño. La rutina que comienza en 
la línea 140 te permite comparar las 
áreas de dos cuadrados. Espera a que 
introduzcas un número, correspon- 
diente al del primer cuadrado que de- 
seas comparar, efectuando una com- 
probación para asegurarse de que 
efectivamente se trata de un número 
«legal». En otras palabras, si el nú- 
mero es más grande o más pequeño 
que el número de cuadrados, no será 
aceptado. 

Una vez que hayas introducido dos 
números válidos, el ordenador exa- 
mina cuál de ellos es más grande. A 
continuación eleva cada número al 
cuadrado (multiplicándolo por sí 
mismo) y divide el mayor por el me- 
nor. Seguidamente se presenta en 
pantalla el mensaje que indica qué 
cuadrado es el más grande y cuántas 
veces superior. Nuevamente se te 
ofrecerá la posibilidad de comparar 
dos áreas, si deseas hacerlo o, por el 
contrario, de ver otra vez el programa 
completo. 

Probablemente la potencia que más 
se utiliza es el cuadrado o segunda po- 
tencia. Pero también es posible que 
haya muchas veces en que quieras cal- 
cular el cuadrado al revés, es decir, 
encontrar el número original a partir 
del cual resulta un cuadrado conocido. 

En el caso del número 81 no resulta 
demasiado difícil: sabes que nueve ve- 
ces nueve son 81, por lo que la longi- 
tud del lado buscada debe ser 9. Pero 
si el área del cuadrado buscado hu- 
biera sido un número menos evidente, 
por ejemplo 127, resultaría bastante 
más laborioso calcular la medida del 
lado. Para ayudarte en esta tarea, los 
ordenadores disponen de una función 
especial: la raíz cuadrada. 

Teclea en tu ordenador PRINT 
SQR(81) y a continuación pulsa EN- 
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TER o RETURN. Observarás que en 
la pantalla aparece el número 9. (En 
el caso de que sientas curiosidad por 
saber cuál es la raíz cuadrada de 127, 
sustituye en la expresión anterior 81 
por 127.) 

El ordenador dispone del comando 
especial SQR debido a que la raíz cua- 
drada se utiliza con mucha frecuencia, 
pero ésta no es de hecho la única 
forma en que se puede calcular la raíz 
cuadrada; también puede emplear la 
función potencial ordinaria. Si has es- 
tado experimentando en esta función 

con 2 A 5, es decir, 2 elevado a — , la 

2 

potencia — tiene el mismo resultado 

que SQR(2). Para comprobar esto, 
ensaya PRINT SQR(81), después 
PRINT 81 A .5. 

Puede que los resultados no sean 
exactamente iguales, pero es seguro 
que serán muy parecidos. 

Puedes realizar una operación aná- 
1 

loga con la fracción — , que te permite 

obtener la función inversa de la ele- 
vación al cubo; esto es lo que se llama 
«extraer la raíz cúbica». Naturalmente 
puedes hacer lo mismo con otras po- 
tencias cualesquiera. Aunque muchas 
de ellas tienen sus aplicaciones, la más 
ampliamente utilizada de todas es, con 
mucha diferencia, la raíz cuadrada. 

Puedes emplear el comando SQR 
para muchas otras aplicaciones, aparte 
de hallar el lado de un cuadrado cuya 
área conoces. Hay muchas ecuaciones 
matemáticas que contienen cuadrados 
y raíces cuadradas; en tales casos pue- 
des utilizar la función SQR para re- 
solverlos con ayuda de tu ordenador. 

Como ejemplo, en el siguiente pro- 
grama se emplea una ecuación para 
calcular el tiempo que tardará en es- 
trellarse contra las rocas un objeto que 
cae desde un acantilado, o cualquier 
otra altura (sin tener en cuenta la re- 
sistencia del aire). También podrás sa- 
ber la velocidad con que se está mo- 
viendo el objeto en el momento en 
que llega al suelo. El porqué de la re- 
lación existente entre los cuerpos que 
caen y los cuadrados y las raíces cua- 
dradas reside en que todo lo que está 



bajo la influencia de la gravedad, cae 
con mayor velocidad cuanto más 
tiempo lleva cayendo (siempre sin te- 
ner en cuenta la resistencia del aire). 

10 C0L0R15.1.1: 

CLS:SCREEN2: 

0PEN"GRP:"AS1 
20 INPUTINTRODUCE LA 

DISTANCIA DE LA CAIDA 

(METROS)";D 
30 IFD<0 THENGOTO20 
40 T=SQR ((2*D)/9.81) 
50 V=SQR (2*D*9.81) 
60 T=INT (T*100)/100 
70 V=INT (V*100)/100 
75 CL0SE#1: CLS-.SCREEN2: 

0PEN"GRP:"AS1 

80 PRESET(20,3): 
C0L0R9:PRINT#1, "TIEMPO 
QUE TARDA EN LLEGAR" 

81 PRESET(20,15): 
C0L0R9:PRINT#1,"AL 
SUELO:" 

82 PRESET(85,15): 
C0L0R14:PRINT#1,T 

83 PRESET(165,15): 
C0L0R9-.PRINT#1, 
"SEGUNDOS" 

90 PRESET(20,83): 

C0L0R7:PRINT#1, "MAXIMA 
VELOCIDAD:" 
100 PRESETU47.83): 
C0L0R13:PRINT#1, 
INT(2.25*V+.5) 
105 PRESET(200,83): 

C0L0R7:PRINT#1,"MPH" 

200 PRESET(65,160): 
C0L0R15:PRINT#1, 
"PRESIONA UNA TECLA" 

201 PRESET(85,172)¡ 
C0L0R12:PRINT#1,"PARA 
REPETIR" 

210 IFINKEY$ = "" 

THENGOTO210 
220 CL0SE#1: GOTO10 

La ecuación utilizada en la línea 40 
es una versión de una de las «ecuacio- 
nes del movimiento». La hemos reor- 
denado para que adopte la siguiente 
forma: 

T = V(2*D)/a 
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donde T es el tiempo requerido para 
recorrer una distancia dada (en este 
caso para llegar hasta el suelo), D es 
la distancia que tú introduces, y a es 
la aceleración, que es una medida de 
lo que va cambiando la velocidad en 
cada segundo. 

En el programa de ordenador no in- 
terviene ninguna variable que se llame 
a, debido a que su valor no cambia. 
Como puedes ver, figura el valor 9.81 
en lugar de a. 

La ecuación anterior se presenta re- 
suelta en la línea 40. El resultado es el 
tiempo que el objeto tardará en cho- 
car con la tierra. 

En la siguiente línea se resuelve una 
ecuación análoga para calcular la ve- 
locidad con que se mueve el objeto en 
el momento de su impacto con el 
suelo. 

V = \/2*D*9.81 

En esta ecuación, en vez de dividir 
el número 2*D por la aceleración, el 
ordenador multiplica dicho número 
por la aceleración. La V significa ve- 
locidad. 

En ambas ecuaciones, el símbolo 
cubriendo a 2*D*9.81 o a 2*D/ 
9.81 significa «raíz cuadrada de». 
Aquí es, pues, donde se utiliza la fun- 
ción raíz cuadrada en este ejemplo. 
Una vez que tengas la respuesta a es- 
tas ecuaciones, puedes modificarlas li- 
geramente para hacer que el ordena- 
dor calcule la altura desde la que se 
arrojó el objeto. 

En su forma general, la ecuación se 
aplica a cualquier objeto que se ve so- 
metido a aceleración, desde un ladrillo 
que cae, hasta un cohete lanzado 
desde la Luna. Lo que hace falta para 
relacionarlo específicamente con un 
objeto que cae es el valor correcto de 
la aceleración. En este caso la acele- 
ración es la debida a la gravedad, por 
lo que a la variable a se le ha asignado 
este valor. La gravedad tiene una ace- 
leración de 9.81 metros por segundo y 
por segundo. En otras palabras, para 
un objeto que cae, su velocidad au- 
menta en cada segundo 9.81 metros 
por segundo. En vez de metros por se- 
gundo y por segundo, también se 
puede decir metros por segundo al 
cuadrado, por lo que ya te puedes 



imaginar por dónde aparece la función 
de elevación al cuadrado. 

Las ecuaciones para hacer esto se- 
rían algo así: 

= a*(t A 2) 
2 

o bien 

D = V A 2/(a*2) 

Ensaya a cambiar tu programa de 
ordenador para calcular las respuestas 
por medio de estas dos ecuaciones. En 
vez de introducir la altura, podrías in- 
troducir la velocidad a la que quisieras 
que cayera algo sobre la tierra (en el 
caso de la segunda ecuación) o el 
tiempo que quieres que transcurra an- 
tes de llegar al suelo. En ambos casos, 
tu ordenador calculará la altura nece- 
saria para satisfacer tu petición. 

La posibilidad de resolver proble- 
mas de esta clase tiene gran cantidad 
de aplicaciones prácticas, si bien nor- 
malmente las ecuaciones deben con- 
siderar otras influencias que también 
actúan sobre el cuerpo que se mueve. 
Pero podrías calcular por ejemplo los 
detalles del comportamiento de un co- 
che que se acelera en una prueba de 
frenos, o bien reconstituir lo que su- 
cedió en un determinado accidente. 
En este último caso, puede que qui- 
sieras conocer la velocidad a que se es- 
taba desplazando el vehículo en el ins- 
tante en que chocó. Es posible calcu- 
lar esto, haciendo la cuenta atrás a 
partir de la distancia que viajó después 
del momento del impacto, siempre 
que dispongas de los datos adecuados 
para introducirlos en tu ecuación. 

Las modelizaciones que te permite 
el uso de funciones potenciales no se 
agotan en cosas tales como el tamaño 
de tu casa o el comportamiento de tu 
automóvil. Se aplican también a otros 
cálculos muy distintos, tales como el 
crecimiento de un árbol o el porqué un 
ave que fuera tan grande como un ele- 
fante jamás podría levantarse del 
suelo. En un próximo artículo vere- 
mos cómo hacer aún un uso todavía 
más eficaz de las funciones matemá- 
ticas de tu ordenador, incluida la 
forma de conseguir algunos efectos 
gráficos realmente impresionantes. 
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STARQUAKE 

Según cuentan las crónicas galácticas, 
el asteroide STARQUAKE fue 
invadido por elementos 
desestabilizadores que, en su afán 
dominador, cambiaron 9 piezas del 
corazón atómico que controlaba la 
apacible vida de la roca. Y es aquí, 
donde aparece nuestro redondeado 
amigo, el errante vagabundo sideral 
BLOB. un androide fabricado en la 
Tierra que fue enviado por el 
Consejo para intentar reponer las 
piezas que devolvieran . 
tranquilidad a STARQLAKE. 



COMIENZA LA AVENTURA 

Para empezar la búsqueda 
disponemos de 4 vidas además de la 
que inicia la aventura; cada vida 
dispone de una cantidad limitada de 
energía que se irá reduciendo a 
medida que pasa el tiempo y cada 
vez que nos ataquen las múltiples 
bestiecillas que andan sueltas por 
todo el laberinto. Existe además, un 
enemigo mucho más peligroso aún 
que el paso del tiempo y los bichos 
incordiantes, son los tornillos 
volantes, ojo con ellos. 



Para que nos vayamos haciendo a la 
idea, la aventura consta de 531 
pantallas, todas llenas de bichos y 
una que es el corazón de 
STARQUAKE, especie de cámara 
donde se hallan los elementos a 
reemplazar. 



SECCIONES DEL PLANETA 

El laberinto está compuesto por 
cavernas donde se hallan las piezas 
averiadas que hay que cambiar. 
Nuestro androide, siempre comienza 
en el mismo sitio, en la superficie del 
planeta: este lugar corresponde con 
una de las 15 estaciones con unidad 
de teletransporte molecular. 
A cada una de estas estaciones le 
corresponde un código de cinco 
letras sin el cual no es posible utilizar 
el teletransportador. Cuando nos 
introducimos en uno de ellos, el 
juego se para y nos aparece una 
pantalla con un texto en el que se 
nos indica el nombre — código — de 
la estación que estamos y debajo 
cinco rayitas que es donde hay que 
introducir el código de la estación 
destino; si es correcto efectúa la 
operación, caso de no serlo indicará 




CODIGO NO RECONOCIDO y 
seguiremos otra vez donde 
estábamos. 

Los códigos de las estaciones son los 
siguientes: 

VORAX - RAZON - TARAQ - 
DULAN - ANTIO - KWAKE - 
ANGOR - ERCOT - KRANZ - 
UPLAN - INDLE - OPTIN - 
SNOOL - ZODIA - ARGOL. 

La estación más cercana al comenzar 
la aventura es VORAX, no suele 
haber nada excepcional en ella 
aparte de la tarjeta de seguridad, 
especie de tarjeta de ordenador con 
una A en el centro. Otra de las 
estaciones clave a visitar con 
prioridad es ANTIO, pues suele 
encontrarse la llave maestra que abre 
algunas de las puertas de que consta 
el laberinto. 

Como estación básica nos 
encontramos con KWAKE; aquí se 
encuentra el corazón o núcleo 
generador averiado. Decimos que es 
básica ya que para evitarnos pérdidas 
de tiempo y energía es inexcusable 
visitar dicha estación para saber las 
piezas averiadas; éstas se distinguen 
porque parpadean. Como estrategia 
a seguir, resulta conveniente 
darse una vuelta por esta zona 
y saber qué piezas serán útiles 
y cuáles no. 

Estaciones poco recomendables para 
visitar son las inferiores: SNOOL, 
ARGOL y ZODIA; en esta última, 
a no ser que tengamos el síndrome 
de la curiosidad, mejor ni acercarse, 
entre otras cosas porque no existen 
transportadores aéreos para salvar 
alturas y todo son bichos y trampas. 
De estas tres la única en la que se 
puede encontrar alguna pieza 
del núcleo es ARGOL, 
generalmente cerca de los 
aparcamientos de los 
transportadores aéreos. 
A cualquiera de las estaciones se 
puede acceder a través del laberinto 
desde otras, exepto a dos: ZODIA 
y OPTIN. A la primera sólo 
podemos entrar con el 
telegransportador molecular. 
A la segunda, por un 
pasillo desde KRANZ. 



DESCRIPCION Y USO DE 
OBJETOS 



SECCION: VORAX 
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Dentro del laberinto se hallan los 
objetos más dispares: un paraguas, 
un transistor, chips numerados, etc, 
y la famosa tarjeta de seguridad. 
Comentemos a continuación los 
objetos de mayor interés a tener en 
cuenta durante el juego. El más 
importante es la tarjeta de seguridad; 
aparece representada por una ficha 
perforada de ordenador con una A 
(de «acceso») en el centro. Se halla 
normalmente en las pantallas de 
inicio y es imprescindible para 
utilizar tanto las puertas de seguridad 
(SECURITY DOOR) como las 
pirámides de Cheops (CHEOPS 
PYRAMID), ya que contiene los 
códigos de acceso a dichos 
elementos. 

Aparte de las puertas de seguridad 
nos encontraremos con unas puertas 
sin código de acceso, pero como 
todas las puertas necesita de una 
llave para poder abrirse; esta se 
encuentra casi siempre en la estación 
ANTIO, en la primera pantalla. 
De momento, tenemos dos de los 
objetos más importantes a tener en 
cuenta, aunque la llave quizás sea de 
segunda categoría, pues en' todo el 
laberinto puede que hayan tan sólo 
tres puertas que necesiten de esta 
llave. Otro de los objetos que nos 
pueden servir a lo largo de la 
aventura es la pirámide de Cheops, 
importante donde los haya, pues 
sirve para cambiar objetos inútiles 
por otro que pueda ser introducido 
en el núcleo. El único inconveniente 
que presenta es el de tener código de 
acceso y sólo poderse usar una vez 
ya que cuando hayamos cambiado un 
objeto y salgamos de ella, 
desaparecerá. Un detalle a tener en 
cuenta es que si entramos en una 
pirámide sin ningún objeto, o sólo 
con la llave, el objeto que la propia 
pirámide elige es siempre la tarjeta 
de seguridad, así que cuidado porque 
luego no se puede recuperar. 
El resto de los objetos son los que 
tenemos que cambiar en el núcleo de 
STARQUAKE: una bombilla, un 
diskette, piezas de enlace del núcleo, 
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etc., y como nota remarcable decir 
que no se pueden coger si vamos 
subidos en los monopatines aéreos, 
así que tendremos que deshacernos 
de ellos en los «parking» adecuados 
de 1 alrededores y dirigirnos 
andando hasta el objeto. Solamente 
podemos llevar con nosotros 4 
piezas, de las que una debe ser la 
tarjeta de seguridad y la otra la 
llave, aunque puede ser optativa por 
lo anteriormente explicado. Así que 
como mucho llevaremos 3 piezas, 
que podremos ir amontonando en 
algún sitio que nos interese, para 
tenerlas localizadas. 



ELEMENTOS DESTRUCTIVOS 
ESTATICOS 

Las antenas electrostáticas: estos 
aparatos producen descargas 
eléctricas intermitentes que funden 
los delicados circuitos de Blob cada 
vez que este cae entre las antena 
Habrá momentos en los que nos 
cierran el camino y no hay forma de 
pasar si no es a través de ellos. 
Otro de los peligros, a que nos 
veremos enfrentados, es el de tener 
que cruzar las barreras de electrones, 
que al igual que las antenas 
electrostáticas, nos funden si 
intentamos pasar cuando hay 
descarga. 



TRAMPILLAS SECRETAS 

Este tipo de acceso es una especie 

de puerta que está en el suelo y no SECCION: ANGOR 
se abre con ningún objeto de los 
que hemos visto hasta ahora, por lo 
menos del modo tradicional de abrir 
puertas. Menos mal que antes de 
partir fuimos informados de las 
características de estas peculiares 
puertas; resulta que no se pueden 
cruzar mientras vayamos subidos en 
los transportadores aéreos, osea que 
tenemos que ir andando, 
posicionarnos justo sobre la trampilla 
y haciendo uso de las plataformas 
elevadoras situarnos a cierta altura, 
cuatro o cinco plataformas, y esperar 
/a que se desvanezcan. Al caer 
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SECCION: INDLE 



SECCION: OPTIN 
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ROMPEREMOS la trampilla 
pasando al otro lado. Solo hay una 
pega en todo esto, y es que si 
intentamos volver a pasar por donde 
vinimos resulta que se han vuelto a 
cerrar, y desde abajo no se pueden 
abrir. 



PASAJES SECRETOS 

Siguiendo en la línea de los secretos, 
hay que comentar los pasajes. Estos 
son unos túneles que, entre otras 
cosas, hay que cruzar andando, pues 
sólo cabe BLOB. Gracias a ellos 
podemos ahorrarnos un montón de 
riesgos e incomodidades pues 
comunican secciones que en caso de 
tener que rodearlas, sería muy 
costoso y peligroso al mismo tiempo. 
Los pasajes están en las paredes de 
la caverna, no son fáciles de 
descubrir, excepto algunas veces que 
se ven claramente unas hendiduras 
cuadradas justo de la altura de 
nuestro héroe. 



TRANSPORTADORES AEREOS 

Para facilitarnos los desplazamientos 
por el planeta disponemos de unos 
monopatines siderales, especiales 
para salvar ciertas alturas y recorrer 
con mayor velocidad las cuevas de lo 
que lo haríamos andando. Para 
poder deshacernos de ellos existen 
unos aparcamientos a ras de suelo o 
colgados de rocas en los que encaja 
perfectamente el aparato. Cada vez 
que entremos en una sección 
montados en un monopatín los 
aparcamientos estarán vacíos, por si 
hay que dejarlo; pero si por el 
contrario entramos andando, siempre 
habrá uno esperándonos. 



CRISTALES 

Conforme descubramos nuevos 
lugares, encontraremos unos 
gigantescos cristales tallados en 
facetas, colocados encima de 
pedestales. Dichos cristales no sirven 
para nada, son inútiles, lo que si se 
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puede usar es el pedestal que tiene 
unas aberturas para cruzarlo sin 
tener que saltar por encima del 
diamante. Los que son inofensivos 
son otro tipo de cristales, los 
puntiagudos cristales de starquarzo. 
Cada vez que BLOB aproxima 
demasiado o cae sobre ellos pierde 
una vida; de modo que cuidado al 
dejarse caer por las cavernas por 
efecto de la gravedad. Las 9 piezas 
están repartidas aleatoriamente por 
toda la caverna pero siempre en los 
mismos sitios, es decir que cada vez 
que iniciemos una partida, las piezas 
habrán cambiado tanto en el núcleo 
como en el lugar en que están, pero 
NO cambiará el sitio donde estaban 
en la partida anterior. 



EL CARGADOR 

10 CLSrKEYOFF: 

CLEAR200.&H8FFF: 

BLOAD"cas: w ,R 
15 A=PEEK(&HD100):IF 

A<>255 THEN 

GOTO 25 
20 PRINT:PRINT " 

INSUFFICIENT 

MEMORY":PRINT " 

TO LOAD STARQUAKE": 

FOR 1 = 1 TO 5000: N EXT 

l:DEFUSR=0: 

A=USR(0) 
25 BLOAD"cas:":DEFUSR 

=&HD102:A=USR(0): 

DEFUSR= 

&HD27D: 

A=USR(0) 
30 BLOAD"cas:":POKE &HD101, 

1:DEFUSR = 

&HD102:A=USR(0) 
35 BLOAD" 

cas:" 
40 ' ENERGIA 

INFINITA 
45 POKE&HA06B.0: 

POKE &HA06C.0 
50 ' DISPARO 

INFINITO 
55 POKE&HAADA.0: 
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SECCION: SNOOL 




SECCION: ARGOL 



POKE&HAADB.0 
60 ' ELEVADOR 

INFINITO 
65 POKE&HAA71.0: 

POKE&HAA72.0 
70 ' ELEVADOR 

ULTRARAPIDO 
75 P0KE&HAA1B, 

0:POKE&HAA1C,0 
80 1 VIDAS 

INFINITAS: 



85 



90 



' OBTENDREMOS 
TODAS LAS VIDAS 
DESEADAS 
* AL SITUARNOS 
SOBRE LA FIGURA DE 
UN JOYSTICK 
95 POKE&HAEC9.0: 
POKE&HAECA.0 
100 DEFUSR= 

&HCCA1: 

A=USR(0) 




SERVICIO DE 
EJEMPLARES 
ATRASADOS 





N . 2 Mi ordenador ya sabe dibujar 
Enviando mensajes secrelos Juegos de 
laberinto Traductor de texto Almacenamiento 
de programas en BASIC Rutinas de tanteo y 
tiempo Soltware de allende las fronteras 




N . 12 Diseñador de teclado Lector de 
cabeceras de anta Música micros y midi 
Mapa y pokes para FUTURE KNIGHT Examina 
la memoria de tu micro Las serpientes 
sumadoras 




N. 14 Radiografía de un diskelle Las 
variables del sistema Bueno como el oro 
Mapa de SPIRITS Ultimas novedades del 
soltware internacional Arquitectura interna del 
ordenador 




N . 6 La Memoria de video Todo sobre 
READ y DATA El lenguaie de la tortuga 
Puz/les y matemáticas Estructura lus 
programas Taller de hardware Inteligencia 
arliticial en tu micro 




N. 10 Lectura del directorio de un disco 
Arquitectura de la Unidad Central de Procesos 
(CPU) Código máquina para lodos Generador 
de discursos El ordenador y el teléfono LISP 
e inteligencia artilicial 




N . 1 1 Dibuiando bit a bit Entendiendo ei 
PEEK y el POKE Creador automático de 
menús Mapa y pokes para LIVINGSTONE 
SUPONGO SWAPS el luego de los números 
invertidos Biblioteca de dalos 



¡NO TE PIERDAS NI UN SOLO 
EJEMPLAR! 



INPUT MSX quiere proporcionar 
a sus lectores este servicio de 
números atrasados para que no 
pierdan la oportunidad de tener 
en sus hogares todos los 
ejemplares de esta revista, líder 
en el mercado español. 
Podréis solicitar cualquier 



número de INPUT MSX que 
deseéis, siempre al precio de 
cubierta (sin más gastos). 

Utiliza el cupón adjunto, 
enviándolo a EDISA (Dpto. de 
Suscripciones), López de Hoyos 
141 -28002 MADRID. 



CUPON DE PEDIDO 

Sí, envíenme contra reembolso ejemplares de INPUT 

MSX de los números: 

(escriba en letra de imprenta) 



(Vi ¡MHHh L 1 J_L I 1 i 1 1 1 t 1 1 1 l l l l | | | i | i | , , 

APELLIDOS lili — 1 ' 1 ' 1 1 1 ' 1 l 1 l 1 1 i l i l l 1 1 ■ 


DOMICILIO i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


NUM.\ iiii 


i PISO\ l l 


i i COD. POSTAI \ i i 


i i i i i i i i i i i i i i i i 


POBLACION i 


iiiiii 


i i i i i i i i i i i i 


i PROV 1 i i i i i i i i i i 



TELEFONO l l i 



FIRMA 



MAPA, CARGADOR Y POKES PARA 



NONAMED 



HISTORIA 

«¡Qué increíble oscuridad la de esta 
habitación! A duras penas puedo 
vislumbrar las paredes que me 
rodean. ¡Qué angustia sentirse en un 
territorio hostil y desconocido! ¿Pero 
que diantres hago yo aquí?». Nuestro 
personaje se hallaba sumido en un 
mar de meditaciones. 

Todo empezó meses atrás, cuando 
siendo hijo de un pobre campesino, 
su padre lo mandó enrolarse en las 
huestes del rey. Aunque sencillo, 
nuestro personaje estaba dotado de 
una valentía y un arrojo sin igual. 
Todo ello, le llevó a ir ascendiendo 
en el escalafón militar hasta llegar a 
ser capitán de la guardia real. Pero 
un día conoció a la bellísima princesa 
y quedó prendado de su amor. 
Aunque la princesa, como alteza real 
que era, sólo podía casarse con un 
valeroso y noble caballero. La única 
manera de nuestro personaje en ser 
noble consistía en presentarse a 
Caballero del Rey. Muchos eran los 
aspirantes, aunque esto no turbó el 
ánimo de nuestro joven capitán. 
Estos debían de ser duchos en el 
manejo del arco, la lucha cuerpo a 
cuerpo, y la espada. Tras duros 





combates entre los aspirantes nuestro 
personaje salió vencedor, pero esto 
no era el fin sino el principio de la 
más dura prueba a la que se tenía 
que enfrentar: el Castillo Sin 
Nombre. 

El Castillo Sin Nombre había 
pertenecido a un rey, el más tirano 
que sin duda había existido. Harto 
de los abusos y arbitrariedades el 
pueblo se levantó en armas contra él. 
y para ello mandaron a los caballeros 
de la mesa circular. Aquel de los 
caballeros que entrara en el castillo, 
matara al tirano y saliese con vida 
sería nombrado nuevo rey. Esta 
historia en el transcurso del tiempo 
se convirtió en leyenda, adoptándose 
dicho sistema para elegir al nuevo 
rey. Como el tirano ya no existía, le 
fue encargado al mago de la corte el 
vigilar y supervisar a los aspirantes a 
rey en el Castillo Sin Nombre. El 
premio es grande, pues si consigue 
salir se obtiene el reino. Si no los 
aspirantes quedan convertidos en 
ogros para el resto de sus días. Para t 
nuestro personaje todo ello es 
secundario pues su principal aliciente 
es ser noble para poder casarse con 



su princesa. Su objetivo consiste en 
recoger los cráneos de los caballeros 
que dieron muerte al tirano para 
dárselos al Mago, y que éste le haga 
un hechizo para matar al dragón que 
custodia la llave de la puerta de 
salida. 

¿Podrá nuestro héroe cumplir su 
deseo...? 



LOS ENEMIGOS 

El castillo tiene forma laberíntica, 
pasajes secretos, innumerables 
enemigos y una fuente mágica. 
Podemos caminar de izquierda a 
derecha, subir o bajar por unas 
lianas que prenden del techo, saltar y 
colocarse en las columnas para 
ascender por ellas. 
En cuanto a los enemigos, éstos 
pueden ser animados o innamiados. 
El barril: este objeto circular 
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rodando por el suelo, que para 
sortearlo debemos saltarlo. El águila: 
ésta sobrevuela sobré nuestra cabeza 
y para esquivarla deberemos 
arrodillarnos. El hacha: es muy 
similar al águila. El esqueleto: puede 
venir de cara o de frente, según nos 
hallemos deberemos propinarle una 
patada. Los ogros: son los aspirantes 
a caballeros que han sido hechizados 
para el resto de sus días. Podemos 
aliviarlos de ese sufrimiento dándoles 
una patada y convirtiéndolos en 
piedra, aunque no les podamos 
devolver la vida. El dragón: a modo 
de cancerbero custodia 
meticulosamente la llave de la salida 
y es inmune a todos nuestros golpes 
y armas materiales. La única arma 
efectiva es el hechizo que nos 
proporcionará el Mago tras darle los 
cráneos de los primeros caballeros, 
diseminados por todo el castillo. 



LA MISION 

Con la ayuda del mapa que os 
proporcionaremos y del cargador 
podemos hacer realidad el deseo de 
nuestro enamorado compañero de 
fatigas. 

Los cráneos son fáciles de recoger en 
la zona del jardín a excepción de uno 



que se halla en una piedra muy alta 
a la que no se puede acceder 
fácilmente. Si bien cerca hay una 
fuente en la que nuestro personaje se 
fijó, y meditó sobre el agua que 
manaba. ¿Sería envenedada o sería 
mágica? Optó por bebería y vio que 
aduiría más fuerza, ello le permitía 
saltar más, aunque la primera vez se 
quedó tan embelesado que los 
efectos pasaron. También encontró 
una liana a la cual no se podía subir, 
por lo que regresó a la fuente, bebió 
del agua y rápidamente se dirigió a 
la liana, subió por ella y vio de 
pronto el tesoro almacenado por el 
tirano, aunque nuestro héroe lo 
despreció, continuó camino y se 
encontró con el terrible cancerbero, 
el Dragón, se acercó a él y éste le 



soltó una bocanada de fuego, que si 
no se llega a apartar le hubiese 
costado una vida. Salió de la 
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habitación ante la imposibilidad de 
matar a su enemigo. Para ello 
empezó a buscar al mago y llevarle 
los cráneos que le había pedido. Ya 
había estado por todo el castillo 
excepto en la planta superior, pero 
no había encontrado ninguna liana 
para poder acceder a ésta. Pero un 
minucioso reconocimiento delató que 
una columna tenía un no sé qué 
especial, optó por encaramarse «Et 
voilá!», subió por ella, llegando al 
piso superior. Vio al mago, se acercó 
a él, pero éste le indicó con el dedo 
que NO. Se dirigió pues a coger los 
últimos cráneos que le quedaban. 
Recogidos todos, el mago agitó su 
bastón, nuestro héroe le entregó los 
cráneos y a cambio le dio la pócima 
para matar al Dragón. Con ella en la 
mano se dirigió de nuevo a la sala 
del Dragón, se acercó a él y le arrojó 
el hechizo, desapareciendo 
instantáneamente. El caballero 
avanzó hasta situarse encima de una 
pequeña grieta encontrando una 
llave y cogiéndola se dirigió a buscar 
la salida. ¿Pero dónde estaba? El 
tiempo se acababa, quedaban pocas 
energías, los enemigos pululuaban y 
en un ataque de rabia empezó a 
golpear todo lo que encontraba a su 
paso. Por fin rompió uno de los 
jarrones en su parte superior. Saltó 



encima y vio que no tenía fondo, 
yendo a caer a la sala de salida. ¡Por 
fin! Con mano trémula se acercó a 
ella e introdujo la llave. ¡Diablos! La 
puerta no habría; ¡el paso de los 
años la había atascado! Al igual que 
antes la adrenalina fluyó por sus 
venas y en un ataque de nervios le 
propinó a la puerta una monumental 
patada con todas las fuerzas 
que le restaban, ante sus ojos 
la puerta se derrumbó como si 
de un muerto se tratara, 
y vio la luz. 



EL CARGADOR 



10 ' cargador del 

NONAMED 
20 ' para INPUT MSX 

30 ' por 
JOSE VILA 

31 ' POKE-1, 255 si MSX2-S0NY 

32 ' POKE-1, 170 si MSX2- 
PHILIPS 

35 COLOR 15,4,4 

40 CLS: KEYOFF 

45 FOR 1 = 1 TO 500: N EXT 

50 CLEAR 13,33998! 

60 COLOR 

15,1,1 
70 BLOAD"cas:",R 
80 BLOAD"cas:",R 
90 IF PEEK(33999!) o 

&HFF THEN 

BLOAD"cas:" 
100 SCREEN 0:PRINT 
"INMUNIDAD (s/n) 
";IN$ 

110 IF IN$ = "s" THEN GOTO 
130 

120 DEFUSR=34000!: 

A=USR(0) 
130 FOR N=&H9030 TO 

&H9036:POKE N,0:NEXT 

N:DEFUSR = 34000!: 

A=USR(0) 
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TODO SOBRE... 



oooo 




Una vez más nos hemos quedado 
sorprendidos por el videojuego 
hecho por los reyes de la 
programación en MSX: KONAMI. 
Los programadores de dicha firma, 
amén de saber programar, saben 
dotar a sus juegos de 
insospechadas facetas que ni 
siquiera un experto jugador 
sabría reconocerlas. 



LA HISTORIA 

Parece mentira, pero nunca se nos 
acaban las aventuras con nuestro 
amado y conocido pingüino. 
El argumento es siempre como 
corresponde a todos los grandes 
programas de juegos. La princesa 
Penquette, hija del rey de los 
pingüinos, ha sido contaminada por 



el virus letal que asóla el reino. El 
único remedio posible es la fruta del 
árbol de las manzanas de oro, que se 
halla en tierras lejanas. 
Hacía mucho tiempo los pingüinos 
solían vivir en dicha tierra remota, 
conocida por ellos como el «paraíso 
de los pingüinos», no obstante hace 
muchos años que fueron expulsados 
de ella por los frisaurios, horribles 
lagartos carnívoros, sibaritas de la 
deliciosa pechuga de pingüino. 
Como nuestro protagonista se 
hallaba enamorado de la princesa, se 
presentó voluntario para 
tan peligrosa misión. Si 
consigue llegar y traer la manzana de 
oro, salvará a la princesa y restituirá 
la gloria pasada en el hermoso reino 
de los pingüinos. 




DESCRIPCION DEL JUEGO 

Aunque a primera vista nos recuerde 
un tanto al Antartic Adventure, nada 
más lejos de éste. Empezamos por 
observar la pantalla de presentación, 
muy bien cuidado y que nos 
introduce en el alma del juego. La 
segunda observación, sobre la 
pantalla del mapa, es el aumento del 
número de etapas: 24. También la 
diversidad de la orografía: mares, 
cuevas, pistas de hielo, el espacio 
sideral y el paraíso de los pingüinos. 
El marcador situado a la derecha de 
lai pantalla es de peces recogidos. En 
esta aventura no sirven como bonus, 
sino como dinero, con el que 
podremos comprar los objetos que 
necesitemos para facilitarnos la 
misión. Con los peces también 
podremos jugar en las máquinas 
tragaperras, y así conseguir más 
peces para poder comprar más cosas. 
Una vez en el juego hay que reseñar 
las siguientes acciones y pantallas. 
A lo largo de las fases debemos de 
esquivar o saltar los hoyos grandes, 
volcanes pequeños, salientes, 
piedras, troncos, plantas submarinas, 
meteoritos. Si bien muchos de ellos 
no nos matan, sí que nos restan 
velocidad y nos hacen perder mucho 
tiempo; en el caso de las piedras y 
troncos quitan una vida. Otra clase 
de obstáculos que debemos de 
esquivar son los disparos de los 
enemigos, los mismos enemigos, los 
fuegos arrojados por las grietas, o los 
enemigos invisibles. 
Como habéis podido adivinar, hay 
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gran cantidad de obstáculos y de 
enemigos varios, y a medida que 
avanza el juego éstos van 
aumentando en número y dificultad. 
Para rematar lo dicho, cada tres 
frases nos deberemos de enfrentar 
con el terrible y gigantesco frisaurio 
de turno. Lo podemos hacer de dos 
formas, o bien disparándole con una 
pistola varias veces en la cabeza, o 
activando las cargas que se hallan 
en el hielo para que éste ceda bajo 
el frisaurio y así arrastrarlo hasta la 
profundidades. Pero no es sencillo, 
puesto que nuestro adversario se 
mueve y a la vez nos lanza 
bocanadas de fuego que si nos dan, 
nos quitan una vida. Visto el 



panorama casi se nos retiran las 
ganas de llegar hasta el final, pero 
por suerte nuestro héroe puede 



i 
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conseguir unas ayudas dispuestas 
para tal fin por los programadores de 
Konami. 



OBJETOS 

Estas ayudas son unos objetos que 
cuando estén en nuestro poder los 
veremos en la parte superior de la 
pantalla. La manera de conseguirlos 
es bien sencilla. En muchas fases hay 
unos hoyos, más pequeños que los 
demás, situados a derecha o 
izquierda de la pantalla; dentro de 
esos agujeros se halla un esquimal, el 
cual nos los venderá a cambio de los 
pescaditos recogidos. Para entrar en 
los agujeros deberemos de 
centrarnos muy bien, pues de lo 
contrario seremos expulsados, y 
perderemos velocidad. Una vez 
dentro, podemos comprar los objetos 
que queramos o bien jugar a la 
máquina tragaperras. Si elegimos 
probar suerte en esta última, sólo 
podremos jugar tres veces 
consecutivas, a menos que cojamos 
el medallón de la fortuna, con éste 
podremos jugar tantas veces como 
deseemos hasta que se nos agote el 
dinero o los pescaditos. 
Los primeros objetos que deberemos 
de coger son: el gorro con la hélice 
(nos permitirá dar saltos más largos y 
altos), la pluma (con la que 
podremos maniobrar mientras nos 
hallemos en el aire), la pistola (útil 
para repeler todos los objetos u 
enemigos que nos acechen así como 
para matar fácilmente al frisaurio). 
Estos tres objetos son básicos, a la 
par que es recomendable coger 
cuanto antes: los dos cascos, el de 
plata y oro (que nos protegerán por 
tres veces de los golpes que podamos 
recibir, sin perder ninguna de 
nuestras vidas). las gafas o lentes 
(harán visibles los enemigos 
invisibles), así como el medallón 
para poder jugar infinidad de veces 
en las máquinas de azar. Los demás 
objetos son suplementarios y cuando 
realizan su misión desaparecen. 
Éstos son: el timbre (avisa de bonus 
extra), la campanita de dinero extra, 
el anillo y el pergamino (muestran el 
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camino), las dos botas, tanto las 
azules como las verdes, aunque a 
nuestro parecer las verdes son más 
una carga que una ayuda, ganamos 
mucha velocidad pero en detrimento 
de la habilidad y control de la 
situación sobre nuestro héroe. Como 
véis, todos los objetos tienen una 
lógica y están pensados para 
desarrollar determinadas acciones. 
Otra cosa a decir es que no todos los 
agujeros-tienda son iguales y tienen 
los mismos objetos, y mucho menos 
el mismo precio, los hay muy caros y 
muy baratos, por tanto, ¡ojo!, y 
escoger un agujero barato para 
poder comprar la mayor cantidad de 
objetos por la menor cantidad de 
pescaditos. Otra nota de humor por 
parte de los programadores de 
Konami es la de incluir agujeros- 
tienda donde encontraremos a Papa 
Noel, que nos regalará un objeto, el 
que queramos, completamente gratis. 
Una vez explicados los objetos del 
juego hay que hablar de otra ayuda 
sin la cual sería imposible acabar la 
misión. Estas ayudas nos vienen en 
forma de corazones, suponemos 
mandados por la princesa Penquette. 
los cuales pueden ser de hasta 
4 colores. Empieza por tener un 
color rosa, si solamente saltamos sin 
cogerlos cambiará de color, sino él 
cambiará de color tras transcurrir un 
cierto tiempo. El color rosa nos 
proporciona mayor cantidad de 
tiempo, que a la larga se traducirá en 
una mayor cantidad de bonus. Si 
cogemos en verde el corazón, puede 
que al poco rato nos aparezcan unas 
alitas, las cuales si las cogemos nos 
ascenderán al espacio sideral, donde 




podremos recoger gran cantidad de 
peces, evitando los meteoritos. En 
dicha etapa saldrán unos peces 
dorados que si los atrapamos 
aumentan una vida. Transcurrido el 
tiempo, el efecto de las alas habrá 
cesado y seguiremos nuestra 
andadura por el planeta. Si el 
corazón lo capturamos en color 
amarillo nos proporcionará 
inmunidad total contra cualquier 
obstáculo o enemigo durante un 
cierto lapsus de tiempo. Para ello 
nuestro pingüino cambiará de color 
y, antes de que acabe su inmunidad, 
avisará parpadeando. Si entramos en 
los agujeros-tienda con inmunidad, al 
salir la habremos perdido, por lo que 
es aconsejable no cogerla si tenemos 
que introducirnos en éstos. La 

inmunidad no nos 
protege de las 
fisuras ni de los 
agujeros grandes, 
por lo que si 
caemos en ellos 
nos harán perder 
tiempo y 
velocidad. Otro 
color en que 
podemos coger el 
corazón es el azul. 
Si lo cogemos, 
aparecerá una 




nube, que nos elevará y podremos 
realizar el camino por los cielos, 
aunque no nos resta de poder coger 
pescaditos. En cambio no podemos 
entrar en los agujeros-tienda, así 
como no es aconsejable que la 
cojamos cuando haya enemigos 
aéreos, pues en un abrir y cerrar de 
ojos nos matarán. 
Lo que antes nos parecía imposible 
ahora no nos parece tanto, pues si 
bien hay gran cantidad de enemigos, 
también hay gran cantidad de ^yudas. 
Adjuntamos una tabla con las 
12 primeras etapas donde podemos 
encontrar los agujeros-tienda. Para 
lo cual deberemos de observar la 
distancia, ésta puede tener un error 
de 2 arriba o 2 abajo. 

Fase 1 483, izquierda 

328, derecha 

183, derecha 
Fase 2 381, izquierda 

183, izquierda 
75, derecha (Éste es 

aconsejable) 
Fase 3 683, derecha 

665, derecha 

401, derecha 

(Aconsejable) 
83, izquierda 
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Fase 6 335, izquierda 

298, izquierda (Está 

Papá Noel) 1 
Fase 7 563, izquierda 

263, derecha 
Fase 9 403, derecha 

(Aconsejable) 

181, izquierda 
Fase 12 780, derecha 

480, izquierda 

435, derecha 

183, izquierda 

Como habréis observado hay un gran 
número, pero no todas son 
aeonsejables de entrar, pues o son 
muy caras o no están todos los 
objetos que buscamos. Hemos 
nombrado las más aeonsejables y 
donde se halla Papá Noel, aunque 
pudiera estar en otras. 
Aun así, con todo, terminar el juego 
es una empresa ardua que 
corresponde a cada uno afrontar. Por 
si fuera poco existen unos túneles 
secretos que nos hacen pasar fases 
muy fácilmente. Dichos túneles se 
hallan comunicados unos con otros y 
su entrada se realiza por 
determinados hoyos. Y es que los 
programadores de Konami han 
rizado el rizo con este juego. En 
estos grandes agujeros, una vez 
introducidos en los túneles, tenemos 
que tirar hacia atrás a nuestro héroe 
y así viajar por las cavernas secretas, 
libre de mortales enemigos y que 
hacen el viaje muy corto. Este 
descubrimiento lo podréis usar si 
seguís fielmente las instrucciones que 
os indicaremos. 



secretos conseguiríamos llegar hasta 
el final). Como en la tabla de los 
agujeros-tienda , deberemos de estar 
atentos al indicador de distancia, 
(puede tener un error de 2 arriba o 
2 abajo). Una vez ante el agujero y 
en el momento de entrar deberemos 
de tirar hacia atrás el pingüinito. 

Fase 1 240 pasamos a la fase 6 
Fase 6 140 pasamos a la fase 9 
Fase 9 335 pasamos a la fase 
12 

Fase 13 357 pasamos a la fase 
15 



Fase 16 78 pasamos a la fase 18 
Fase 18 420 pasamos a la fase 
21 

Por tanto, ya sabéis los túneles 
secretos que existen, dónde cogerlos 
y a dónde van, si bien vosotros 
mismos podéis encontrar otros que 
nosotros no hayamos podido hallar. 
Si a todo ello le unimos el Game 
Master, podemos afirmar con 
rotundidad que se trata del mejor 
programa para un MSX y que 
constituye por lo tanto un programa 
necesario para cualquier aficionado a 
los juegos. El tratamiento que hace 
del color es insuperable, la riqueza 
de los decorados y paisajes es el no 
va más, el movimiento tanto del 
personaje como el de los restantes 
personajes está lleno de vitalidad y 
realismo y, cómo no, la gran dosis de 
humor y lógica empleada por sus 
creadores. Si a todo lo visual le 
añadimos el sonido, tanto los efectos 
especiales como la musiquilla que 
nos acompaña por todo el juego, 
sólo podemos decir «OBRA 
MAESTRA». 
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Más de un año en onda 
programera y nosotros 
sin MaSXcota. 



Un nuevo y delirante concurso sale a la 
luz para dotar de premios sustanciosos a 
aquellos programadores en BASIC y Códi- 
go Máquina (de primera y segunda genera- 
ción) que gustan de «pintar monigotes» en 
la pantalla. 

Las bases son sencillas: envía tus dibu- 
jos hechos por ordenador de la que piensas 
podría ser nuestra/vuestra mascota (cuan- 
tos más, mejor) en cinta o diskette 3 1/2 a: 

La Mascota de INPUT 
Aribau, 185, 1.° 
08021 Barcelona 

Entre los seleccionados de cada mes se 
sortearán tres fantásticos programas en car- 
tucho, entrando a formar parte como fina- 
listas en el sorteo que tendrá lugar a fin de 
año. 



TV • 



Y tú... 
¿ya la has 
diseñado? 



Dat 



e prisa! 



SOFTACTUALIDAD 



FOOTBALLER OF THE 
YEAR 

Este juego, a diferencia de muchos 
otros que también se basan en el 
deporte del fútbol, nos convierte a la 
vez en jugadores y mánagers. De esta 
manera los resultados que 
obtendremos a lo largo de la liga 
dependerán, tanto de nuestra 
habilidad como jugadores, como de 
nuestra habilidad como negociantes. 
Meter goles, nos será tan importante 
como realizar unos buenos traspasos 
de jugadores, un buen reparto de los 
beneficios a lo largo de la liga y de la 
copa... 

El juego presenta en diversos gráficos 
nuestra evolución a lo largo de la 
temporada, y a través de un telex se 
nos facilitan los resultados que vamos 
obteniendo. Estos dependen del 50% 
de nuestra habilidad en el lanzamiento 
de faltas, como del uso que hagamos 
de nuestro dinero para comprar goles. 
Si los goles, o más bien la opción de 
realizarlos, se puede comprar, y en 
cada categoría éstos tienen un precio 
determinado. Para conseguir dinero 
podemos esperar a recaptarlo en 
taquilla o bien jugarnos la carta de 
doble filo de los incidentes donde 




tanto 
pueden 
darnos 
como 
quitarnos 
dinero. 
Este es un 
programa 
que 

simula el 
mundo del fútbol 
en general y que nos convertirá 
en unos expertos de las 
finanzas deportivas. 



CASTLE 

Si algún día de verano os encontráis 
sin saber qué hacer en casa, porque de 
repente se ha puesto a llover, seguro 
que este programa os resuelve el 
problema. Lograr completar una 
aventura que transcurre en un castillo 
con decenas de habitaciones llenas de 
peligros puede ser un reto que dure 
toda una tarde. 

Castle parece un juego como 
muchos otros, basados en laberintos 
llenos de trampas y enemigos, pero no 
es así, a parte de los gráficos que son 
expresamente hechos para aprovechar 



las posibilidades de los ordenadores 
MSX, en este juego tanto cuenta 
nuestra habilidad y rapidez en el 
control de los mandos, como nuestra 
capacidad de seguir una estrategia 
para superar inteligentemente los 
obstáculos que se nos anteponen. Una 
de las cosas más útiles a hacer, una vez 
se empieza a jugar, es ir en busca del 
mapa, de este modo sabremos en cada 
momento donde nos encontramos y 
será más fácil plantearse cuál puede 
ser el recorrido óptimo para llegar al 
lugar que creamos conveniente ir. 
Pero cuidado, este castillo está lleno 
de puertas y no todas ellas están 
abiertas. En este caso para abrirlas 
deberemos conseguir una llave del 
mismo color que la puerta cerrada. 

Seguro que cuando logréis 
completar con éxito la misión a 
realizar ya habrá dejado de llover. 
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BEACH HEAD 

Para jugar con este programa de 
U.S.GOLD que ya hace tiempo salió 
para SINCLAIR y COMMODORE, 
tan sólo hacen falta dos cosas: un 
joystick y mucha puntería, además de 
la sangre fría necesaVia para derrotar 
la flota enemiga por completo. 
Primero, el programa nos pone al 
mando de diez barcos, con ellos 




deberemos llegar hasta una playa 
donde se encuentra el enemigo. Una 
vez allí desembarcaremos y los barcos 
que nos quedan se convertirán en 
tanques. Con estos debemos avanzar 
por la playa esquivando o destruyendo 
a los acorazados enemigos y otros 
obstáculos. Hasta que al fin, el 
enemigo quede acorralado en un 
pequeño bunker que también 
debemos destruir para así finalizar con 
éxito nuestra misión. 

Este programa se caracteriza, a 
parte de por su alto contenido bélico, 
por dividirse en cinco claras partes, y 
en cada una de ellas debemos superar 
una dificultad diferente a la anterior, 
y no por ello más difícil. Las tres 
primeras etapas se desarrollan en el 
mar, y las dos últimas en tierra. Otro 
aspecto destacable del programa es 
que podemos elegir éntre tres niveles 
diferentes de dificultad, y si queremos 
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jugar uno o dos jugadores, en este caso 
lo haremos alternativamente. Para 
jugar no debemos olvidar la típica 
frase de combate «Carguen, apunten, 
disparen», será una constante a lo 
largo de todo el juego. 

INSPECTOR-Z 

La mafia ha invadido un hotel y ha 
minado sus pasillos con bombas. 
Nuestra misión: encontrar dichos 
artefactos y desactivarlos. En el 
mismo hotel también se hallan los 
mafiosos que intentarán hacernos 
fracasar en nuestro intento. Estos 
siniestros enemigos aparecerán por las 
diferentes puertas que dan al pasillo 
central e irán directamente en contra 



nuestra. Otro peligro que hay que 
superar son los ventiladores, 
ya que si saltamos desde debajo de 
ellos nos engancharemos en sus aspas 
y al otro barrio Olegario. 

Éste es un programa de HAL 
LABORATORY, una muy buena 
empresa de software de la cual no 
podemos encontrar demasiados 
programas en nuestro mercado, pero 
que en otros países está asociada con 
la otra gran empresa japonesa: 
KONAMI. Esta pequeña pista os 
puede dar una idea de la calidad del 
programa. Calidad que va desde la 
originalidad del juego, los gráficos, 
hasta la velocidad con que se 
desarrolla la acción. En definitiva, 
este es otro buen programa de la casa 
HAL, como lo fueron en su día DUNK 
SHOT o EGGERLAND MISTERY. 





MAGICAL TREE 

Este juego de KONAMI, que no se ha 
comercializado en nuestro país, es uno 
de los menos espectaculares de los 
muchos hechos por la prestigiosa 
empresa japonesa. Aunque no por 
ello queremos decir que no sea 
interesante adquirirlo, la calidad de un 
Konami medio puede ser muy 
superior al mejor programa de muchas 
otras empresas de software. 
Magical Tree nos propone subir por 
un árbol, saltando de rama en rama, 
hasta llegar a la copa, pero no es nada 
sencillo, ya que si tropezamos con 
algún pajaro o gusano caeremos hasta 
el suelo y deberemos subir de nuevo. 
Y éste es el aliciente del programa, ver 
hasta dónde somos capaces de llegar. 
También tenemos la posibilidad de 
agacharnos, y la de destruir a nuestros 
enemigos si tiramos los frutos del 
árbol contra sus nidos. Aunque el 



enemigo más peligroso, que es un 
gusano que cuelga de un capullo que 
se mueve de arriba a abajo y que 
siempre que puede acaba con 
nosotros, es indestructible. El 
programa se desarrolla gracias a un 
scroll vertical que va de arriba abajo, 
siempre y cuando las cosas vayan bien 
y no nos caigamos. 

HOLE IN ONE 
PROFESSIONAL 

A los aficionados al golf este programa 
les va a alucinar, y es que es casi 
perfecto. Para empezar tiene tres 
modos diferentes de juego, y que son 
los siguientes: - 



-Tournament: realizamos un torneo 
entre dos jugadores o un jugador 
contra la máquina. 

- Match play: también aquí se 
enfrentan dos jugadores o uno contra 
la máquina, pero esta vez ganará no 
quien realice menos golpes, sino el 
que gane en más hoyos, cada hoyo es 
un punto. 

- Stroke play: este modo de juego es 
el clásico, pero a diferencia de 
«tournament», podemos jugar solos. 
Además de estos tres niveles de 
juegos, encontramos tres niveles de 
dificultad crecientes, pudiéndose 
desarrollar las partidas en dos 
recorridos diferentes, el Queen Side 
y el King Side (muy inglés todo ello). 
Y no acaba aquí todo, sino que 
también existe la posibilidad de crear 
nuestras propias pantallas y salvarlas 
a cinta. La parte gráfica y de 
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desarrollo del juego es tanto más 
espectacular. En esta parte del 
programa, destaca la sencillez con que 
podemos elegir el palo con que vamos 
a dar a la pelota, o bien el modo de 
seleccionar la fuerza del golpe. El 
modo es el siguiente: un pequeño 
gráfico en forma de rectángulo muy 
alargado, situado en la esquina 
inferior izquierda de la pantalla se va 
coloreando de rojo y de amarillo 
alternativamente. Como la cantidad 
de color rojo representa la fuerza con 
que golpearemos la bola, debemos 
pulsar el disparo cuando creamos que 
es el momento idóneo. De esta 
manera el juego tiene más aliciente , ya 
que no tan sólo se trata de saber con 
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arcade. En él destacan los buenos 
gráficos del muñeco protagonista y de 
la nave en general. Dicha nave se 
encuentra dividida en diferentes 
sectores por los que encontraremos a 
nuestros enemigos. El sector donde 
nos encontramos se indica en un 
marcador situado en la parte superior 
de la pantalla, también allí se 
encuentra el marcador con nuestra 
puntuación y el récord que hayamos 
logrado establecer. 
El juego no es fácil de dominar en las 
primeras y mortíferas etapas, pero es 
elevadamente absorbente para quien 
se enfrente por primera vez a él, por 
eso os deseamos que la fuerza espacial 
os acompañe. 




qué fuerza debemos golpear la bola, 

sino que además tenemos que lograr 

hacerlo con dicha fuerza. 

En resumen un simulador de golf 

genial que no puede faltar en 

la ludoteca de ningún 

coleccionista. 

MOBILE PLANET 



Dentro de una nave perdida por el 
universo se está desarrollando una 
batalla en la que tú vas a tener un 
papel protagonista. Tu misión es 
acabar con los alienígenas que han 
entrado en la nave y lograr despegar 
de nuevo. Así es el argumento de este 
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PICTURE PUZZLE 

Éste es un programa muy divertido, y 
que nos puede llegar a entretener 
durante muchas horas. El objetivo es 
bien sencillo, lograr construir un 
puzzle a partir de las fichas que se nos 
entregan, y hacerlo invirtiendo el 
menor tiempo posible. Para ello un 
marcador irá mostrando el paso del 
tiempo, cosa que nos pondrá más que 
nerviosos. Y aún más nerviosos 
estaremos si competimos con alguien, 
ya que el programa permite jugar dos 
personas a la vez, de manera que 
ganará el más rápido. 
Un aspecto muy destacable del 
programa es el acierto en la elección 
de los gráficos, que van desde una 




cerdita que hace ballet a un cocodrilo 
vestido de mañoso. Esto hace que los 
puzzles sean fáciles de hacer y las 
diferentes piezas muy distintas entre 
ellas, pero esto no resta mérito al 
programa. Un programa que ha 
sabido dar viveza a un juego que 
muchos otros programas, nos lo 
presenta en forma rebuscada y 
aburrida. 

En definitiva, esto es algo más que un 
programa. Se le puede calificar de 
educativo - entretenido. 
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PIPPOLS 

Éste es un divertido arcade de 
KONAMI. El juego se centra en un 
labriego que para salvar a su pueblo de 
un terrible maleficio debe ir hasta lo 
más profundo del bosque encantado 
para coger la bola mágica que romperá 
con la maldición, y volver a casa con 
ella. El pobre labriego no sabe lo que 
le espera en ese tenebroso bosque, 
fantasmas, ratas, murciélagos y 
muchos otros seres serán sus 
enemigos, pero él lanzándoles 
corazones les dará «paz eterna». 
El programa se divide en diferentes 
etapas que debe superar el pequeño 
aldeano, y al llegar al final de cada 
[ etapa podrá escoger en ir por dos 
caminos distintos antes de pasar a la 
siguiente etapa. De esta manera 
avanzará o retrocederá en su camino 
hasta el final del bosque donde se halla 
la bola mágica. Para ver el resultado 
de esta importante decisión hay un 
gráfico en la parte inferior derecha de 
la pantalla donde se representa la 
situación de las diferentes etapas. 
Todas las etapas están llenas de 
peligros, cada una de ellas diferente a 
la anterior y con sus propios peligros, 
aunque es común en todas ellas que 
se encuentren unos marcadores donde 
el aldeano pueda saber el recorrido 
que le falta para llegar al final de la 
etapa. En las etapas también hay unos 
zapatos mágicos que acaban con todos 
los enemigos en pantalla o bien un 
reloj que los paraliza. Y es que este 
juego es un KONAMI y está cuidado 
hasta el más mínimo detalle. 
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BREAKIN! 
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Parece que la idea de una bola que 
rebota sobre una plataforma, y al 
impactar ésta con unos ladrillos éstos 
se destruyen, ha sugestionado a 
programadores de todo el mundo, y es 
que BREAK IN es una nueva versión 
de este tipo de juegos. Pero como los 
anteriores también ha aportado 
innovaciones, en este caso 
espectaculares. Para empezar, la 
plataforma en que rebota la bola y que 
nosotros controlamos, se puede 
mover por toda la pantalla y no tan 
sólo de derecha a izquierda como 
ocurría en el pionero de estos 
programas ARKANOID. Otra 
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dimensión al programa y hacen de éste 
un juego mucho más dinámico y 
emocionante. 

La lástima es que sólo se encuentre 
en formato de disco 3V2: se carga 
desde el sistema operativo del 
MSX-DOS. 




innovación es que no hace falta acabar 
con todos los ladrillos de una pantalla 
para pasar a la siguiente, sino que lo 
que debemos hacer es lograr que la 
bola pase por una abertura que hay en 
la parte superior de la pantalla. Estas 
dos innovaciones dan una nueva 
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LOS JUEGOS 
EDUCATIVOS 



La interesante colaboración entre 
SONY y ANAYA ha tenido como 
resultado la colección de programas 
«JUEGO, PIENSO Y APRENDO». 
Dichos programas van dirigidos a los 
niños de más de cuatro años de edad, 
y su objetivo es que a la vez que el niño 
se entretiene ante el ordenador y 
aprende a usar éste, también acabe 
adquiriendo conceptos 
fundamentales, como pueden ser los 
de serie y conjunto, o que sepa 
diferenciar entre diferentes colores y 
formas geométricas. Pero en ningún 
caso se ha pretendido que esta serie de 
programas fuera un método 
autosuficiente de enseñanza, sino que 
se ha planteado como un complemento 
a la enseñanza normal del niño, y 
como una ampliación de ésta. 
La colección se divide en seis títulos y 
cada uno de éstos puede tener dos o 
tres partes. Cada título concreto tiene 






su propio 
protagonista y 
un objetivo 
concreto de 
enseñanza. La 
lista de títulos 
es la siguiente 
(junto a cada 
título se indica 
el propósito de 
ese programa): 
El payaso explorador 1 - identificación 
de objetos. 

El payaso explorador 2 - 
diferenciación de colores. 
El pescador espacial 1 - grande- 
mediano-pequeño. 

El pescador espacial 2 - alto bajo-largo 
corto. 

El motorista 
sideral 1 - 
formación 
de conjuntos. 
El motorista 
sideral 2 - 
memoria 
perceptiva. 
La abeja sabia 1 
-formas 
geométricas. 
La abeja sabia 2 
-seriaciones. 
La abeja sabia 3 
-análisis de 
forma y color. 



Misión rescate 1 - juegos de 
asociación. 

Misión rescate 2 - secuencias 
temporales. 

El mago volador 1 - identificación de 
números. 

El mago volador 2 - números y 
cantidades. 

Pero por encima de todo destaca el 
acierto de su presentación, y lo 
amenos y divertidos que son. La 
sencillez y la imaginación son las 
verdaderas clave de este éxito. 
Sencillez de manejo y de ejecución por 
parte del niño, además de haber 
sabido encontrar un ritmo lento y 
reposado que permita que piense y 
desarrolle sus ideas tranquilamente, 
o que celebre sus aciertos, que 
siempre van acompañados por una 
alegre melodía y la sonrisa del 
protagonista del juego, que comparte 
de esta forma la alegría del niño. El 
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juego va aumentando paulatinamente 
de dificultad, pero entre nivel y nivel 
hay un juego puramente recreativo 
donde el niño goza de un tiempo de 
desfogue y distensión, antes de 
afrontar la próxima etapa del 
programa educativo. Otro acierto de 
esta serie de programas educativos es 
la entrega de un manual junto a cada 
cassette. Un manual que va tanto 
dirigido al niño como al educador que 
supervise el aprendizaje del niño, 
verdadero protagonista de estos 
juegos, por esta razón la primera parte 
del manual está lleno de dibujos e 
ilustraciones autoexplicativas, de 
manera que el texto quede en un plano 
secundario. 

Pensamos que esta colección es una 
buena adquisición para los niños y no 
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debiera faltar en ninguna ludoteca que 
se tenga como tal. La pedagogía que 
encierran y desarrollan con unas 
directrices bien trazadas y claras de 



»\ 



r 



seguir, es la correcta y acertada: dosis 
de imaginación, estudio y recreo son 
las que se combinan en cada programa 
de la serie SONY- ANA YA, 
esperamos con impaciencia, la 
continuación de dichos programas 
educativos. El pescador, la abeja, 
el motorista, el payaso,... se 
convertirán en partícipes de la 
alegría del niño al aprender una 
cosa más. 
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MARTIANOIDS 

• ULTIMATE i CASSETTE I JUEGO 

Esta es la nueva aventura que nos 
presenta ULTIMATE, al estilo de 
Gunfright o Nightshade. La trama de 
Martianoids es la siguiente: la nave 
MARKON es atacada por unos 
bárbaros alienígenas. Debido a dicho 
ataque, la nave queda afectada en su 
sistema de transmisión que conectaba 
al cerebro de la nave con los 
programas del ordenador. La 
situación cada vez es peor y los 
asaltantes no dejan de destruir los 
componentes activos que encuentran 
a su paso. Tu misión es reestablecer la 
comunicación entre el ordenador y el 
cerebro de la nave, para ello deberás 
llevar los programas desde el 
transmisor hasta el receptor de cada 
sector de la nave. Además, deberás 
reparar todos los componentes activos 
que estén dañados haciendo uso de los 
de recambio. Como tú eres un robot, 
tu energía va controlada por una 
batería que puede ser recargada si 
recoges las pilas de repuesto que hay 
por toda la nave. Y para tu propia 
defensa cuentas con un láser que 
además de los alienígenas también 
destruye las paredes internas, los 
componentes activos y los conos de 
repuesto, por este motivo habrás de 
usarla con cuidado. Para guiarte por 
el cerebro cuentas con la ayuda de una 
consola, con un mapa que te indica la 
posición del programa y la situación de 
cada sector. Estos se colorearán según 
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su estado y el significado de cada color 
es el siguiente: 

Rojo: el sector ha sido destruido. 
Blanco: sector inactivo. 
Amarillo o rojo parpadeante: sector 
que está siendo atacado. 
La consola también te transmitirá 
otros mensajes para informarte de lo 
que está sucediendo en el resto del 
cerebro. 

Esta es la nueva propuesta que nos 
hace Ultímate, pero en realidad es la 
misma que en los «nteriores juegos, 
pero esta vez con nuevo decorado, y 
se ha reajustado la trama del juego a 
este nuevo ambiente. Pero en el 
fondo, el programa es el mismo y 
podemos disfrutar con él tanto como 
lo hiciéramos con sus antecesores. Y 
más aún si dominamos el 

característico 
movimiento de los 
personajes de 
ULTIMATE, con 
sus giros de 45 
grados y 
movimientos 
rectilíneos. 
Un programa que 
no aporta 
novedades a los 
juegos con la 
interesante y 
emocionante 
técnica 
Filmation. 
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EL CARGADOR 

10 REM POKES 

INTRODUCIDOS:VIDAS 

INFINITAS:INMUNE A LOS 

BICHOS 
20 REM**INPUT*MSX** 
30 REM**POR*JUAN MANUEL 

PONCE** 
40 FORI = &HE500TO&HE511 
50 READA$ 

60 POKEI,VAL("&h"+A$) 
70 NEXT 
80 BLOAD"cas:" 
90 POKE&HE0DE,&HE5 
100 DEFUSR=&HE000:A=USR 
(0) 

110 DATA3e,0,32,4a,a3,3e,0,32, 
4d # 96 f 3e / 0,32 í ed,93,c3,0,48 



ANIMACION 


9 


INTERES 


6 


GRAFICOS 


7 


COLOR 


6 


SONIDO 


5 


TOTAL 


31 
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MILLER-GRAFIC 

• WALTERMILLER á UTILIDAD GRAFICA 
■CARTUCHO 

Seguro que más de una vez os habéis 
visto con ganas de crear vuestras 
propias pantallas (screens) para algún 
juego que hayáis ideado. Pero por 
desgracia no teníais herramientas con 
que realizarlo, o bien el programa con 
que lo realizabais no os permitía 
recuperar las pantallas sino era a 
través del mismo programa. A partir 
de ahora estas excusas ya no os 
valdrán. Walter Miller ha sacado al 
mercado su programa para 
tratamiento de gráficos, el cual basa 
toda su fuerza en los siguientes tres 
puntos: 

- Compatibilidad con los periféricos 
del mercado. Esto quiere decir que el 
programa además de poder usarse a 
partir del teclado también puede 
funcionar con un joystick, con un 
ratón o con cualquiera de las tablas 
gráficas del mercado. 

- Salida directa por impresora. Esta 
opción nos permite sacar una copia 
por impresora de nuestro dibujo, y en 
dos formatos diferentes, uno de 6 y 
otro de 16 colores de tramado. 

- La tercera y más útil opción es la de 
salvar a cinta o disquette el dibujo, 
pero de manera que luego lo podamos 
recuperar desde el basic. 




Uno de los problemas con que 
tropieza a veces el programa son las 
propias limitaciones gráficas de los 
MSX, ordenadores para los que ha 
sido diseñado el programa. Pero por 
eso de la compatibilidad ascendente 
también sirve para los ordenadores de 
la segunda generación. De todas 





formas estos problemas son 
insalvables. 

Un aspecto que siempre es de 
agradecer es la sencillez de uso del 
programa, pero quizá esta se deba a la 
propia sencillez del programa. 
Pronto, según nos comentaron fuentes 
fidedignas de todo crédito, lanzarán 
al mercado otros dos cartuchos de 
utilidades en la serie oro: uno hard - 
una ampliación de memoria de 64 a 
precios pero que muy competentes: 
MEMQRY MILLER- y otro soft que 
hará de los MSX (primera y segunda 
generación) la compatibilidad 
perfecta y total entre ellos: 
MULTIMILLER. 
MULTIMILLER será a buen juicio 
uno de los cartuchos más vendidos e 
interesantes de este año. ¿Cuántos 
problemas tenemos al cargar los 
programas en un MSX2? Muchos. 
Con este cartucho ninguno. Una 
buena adquisición en este verano, 
para disfrutar de la ingente cantidad 
de cintas que esperamos llegen 
nacionales o de importación. La 
compatibilidad al alcance de todos 
y por un precio popular: menos que 
una ampliación de memoria de 64K. 
más que un cartucho de 
marcianitos. 



ANIMACION 


7 


INTERES 


6 


GRAFICOS 


7 


COLOR 


6 


SONIDO 


6 


TOTAL 


32 
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• CASSETTE A DINAM1C. JUEGO 

Army Moves es un programa de 
Dinamic que se divide en siete fases. 
Las cuatro primeras se encuentran en 
la cara A del cassette. En la primera, 
conducimos un jeep de combate 
equipado con misiles de tierra-aire y 
tierra-tierra, éstos nos servirán para 
destruir a los helicópteros y camiones 
enemigos. Nuestra primera misión es 
atravesar un puente, medio destruido 
para llegar hasta un helicóptero, al 
que nos subiremos comenzando así 
la segunda de nuestras misiones. 
Nuestro nuevo objetivo es llegar hasta 
una zona de aterrizaje que se 
encuentra junto al mar, allí 
repondremos fuerzas y llenaremos de 
combustible el helicóptero. La tercera 
fase es una travesía por el mar, que 
acabará cuando lleguemos a la isla 
donde se encuentra el cuartel general 
del ejército enemigo. Durante estas 
tres últimas fases, pilotaremos un 
helicóptero con el que deberemos ser 
capaces de avanzar sin ser alcanzados 
por los constantes ataques enemigos. 
Estos ataques serán hechos, tanto 
desde tierra -por las fuerzas 
antiaéreas-, como desde el aire por los 
veloces cazas enemigos. Es muy 
importante darse cuenta que cada vez 
que somos destruidos por el enemigo 
no continuamos avanzando desde 
donde fuimos alcanzados, sino que 
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reiniciaremos la partida desde el inicio 
de la fase donde nos encontramos. Si 
superamos las cuatro primeras fases 
con éxito se nos facilitará un código 
secreto que nos permitirá acceder a las 
tres fases de la cara B del cassette. En 
estas tres últimas etapas iremos a pie, 
armados con una ametralladora y unas 
cuantas granadas. La quinta fase se 
desarrolla en la jungla y sus mayores 



peligros son las aguas pantanosas y los 
enormes pájaros que nos impiden de 
saltar. Tras horas y horas de sofocante 
carrera por la jungla llegaremos al 
cuartel general del enemigo. Allí 
empieza la sexta fase. Ahora debemos 
atravesar todo el cuartel hasta llegar 
al edificio central. Por todos sitios 
empezarán a salir soldados que nos 
dispararán sin piedad, nosotros 
contestaremos a sus ataques de igual 
forma. Para salir victoriosos de estos 
enfrentamientos nos agacharemos 
mientras dure el tiroteo, y luego 
cuando hayamos despejado el camino 
avanzaremos rápidamente. Al final 
lograremos entrar en las oficinas 
centrales del cuartel, y una vez allí _ 
empezará la séptima y última etapa. 
En dicha fase nuestro objetivo es 
hacernos con los planos secretos de la 
bomba de partículas, y de este modo 
salvar al mundo de una guerra 
nuclear. Pero no será fácil, a parte de 
los soldados enemigos que seguirán 
saliendo por todas partes, ahora hay 
un nuevo obstáculo a superar: un 
laberinto de pasillos y salones. Y que 
gran sorpresa cuando al abrir la caja 
fuerte del general además de los 





planos del mapa encontremos un 
mensaje que nos delata la intención de 
los programadores de DINAMIC de 
hacer un nuevo y emocionante juego: 
NAVY MOVIES. 




LOS CARGADORES 

ARMY MOVIES 1. a parte: 

10' cargador del ARMY MOVES 
1 parte 

30' cargador por JOSE VILA 
50 CLS: KEYOFF: CLEAR 200, 
36000!:COLOR15,1,1:SCREEN 
2 

BLOAD"cas:",R 
POKE 544741,201 :BLOAD 

"cas:",R 

BLOAD"cas : " : CLEAR 200, 
51000! 
BLOAD"cas:" 
SCREEN 0:INPUT"VIDAS 
INFINITAS(s/n)";VI$ 
IF VI$="s"THEN GOSUB 
170 




120 

130 
140 



150 
160 

170 
180 
190 



PRINT:INPUT"FUEL 

INFINITO(s/n)";FI$ 

IF FI$="s'THENGOSUB180 

PRINT: INPUT "CUANDO TE 

MATAN SEGUIR DONDE 

ESTABAS"; SE$ 

IF SE$="s"THENGOSUB190 

DEFUSR=&H82DC:A=USR 

(0) 

POKE &H8987,201:RETURN 
POKE &H8D52,201:RETURN 
POKE &H8DA5,201:RETURN 



ARMY MOVIES 2. a parte: 

50 CLS:KEYOFF:CLEAR200, 

36000 ! : COLOR 1 5, 1 , 1 : SCREE N 
2 

60 BLOAD"cas:",R:CLEAR200, 

51000! 
70 POKE 544741,201: 

BLOAD"cas:",R 
80 BLOAD"cas:" 
90 BLOAD"cas:" 
100 SCREEN0:INPUT"VIDAS 

INFINITAS(s/n)";VI$ 
110 IF VI$="s"THENGOSUB170 
120 PRINT:INPUT"CUALQUIER 

CLAVE(s/n)";CC$ 
130 IF CC$="s"THENGOSUB180 
160 DEFUSR=&H82DC:A=USR 
(0) 

170 POKE&H88AC,0:RETURN 
180 POKE&H86A8,&HC2: 
RETURN 



ANIMACION 


8 


INTERES 


8 


GRAFICOS 


7 


COLOR 


9 


SONIDO 


7 


TOTAL 


39 
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KRAKOUT 

• GREMLIN GRAPHICS ■ JUEGO a CASSETTE 

Al ver este programa, 
involuntariamente uno ya lo compara 
con ARKANOID, el último juego de 
Imagine y que tanto éxito ha tenido. 
Esta comparación es debida a la 
similitud entre los dos programas, 
pero una vez se analiza a fondo el 
nuevo juego, KRAKOUT, uno ve que 
si bien la idea del juego es común a la 
de su antecesor, el planteamiento con 
que se ha llevado a cabo hace que el 
producto final tenga características 
propias de modo que este nuevo juego 
no es una copia del anterior. En 
definitiva ARKANOID y 
KRAKOUT son dos maneras 
diferentes de desarrollar una misma 
idea, y de aquí que aparezcan algunas 
características comunes a los dos 
programas. 




Para empezar vemos que en Krakout 
también aparece una bola que, esta 
vez con un bate, debemos evitar que 
la bola supere la posición del bate. La 
bola al ser rebotada irá contra los 
ladrillos que hay enfrente del bate, y 
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al colisionar con ellos, se destruirán. 
Y la primera diferencia, el bate no se 
mueve de derecha-izquierda por la 
parte inferior de la pantalla, sino que 
lo hace de arriba a abajo por el lado 
derecho o izquierdo de la pantalla 
según lo escoja el jugador al iniciar la 
partida. En los ladrillos también 
pueden encontrarse bonificaciones, 
pero a diferencia que en Arkanoid, 
para hacer éstas efectivas, no las 
deberemos recoger en su caída, sino 
que como estas permanecen quietas lo 
que tenemos que hacer es que la bola 
impacte en ellas. Algunas 
bonificaciones propias del nuevo 
programa son la que hace que 
aparezca una barrera detrás del bate 
de manera que no se pueda perder la 
bola, la bonificación que duplica la 
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Software 




puntuación del marcador, la que 
provoca la aparición de dos bates y la 
bonificación que hace que al chocar la 
bola con un ladrillo se produzca una 
explosión de manera que los ladrillos 
adyacentes también queden destruidos. 
Además de las características propias 
del juego, KRAKOUT ha sido 
complementado con la posibilidad de 
que antes de empezar la partida el 
jugador pueda modificar todos los 
factores variables del juego. Entre 
ellos destacan los siguientes: 

- Velocidad de la bola. 

- Velocidad del bate. 

- Aparición del bate a la izquierda o 
derecha de la pantalla. 

EL CARGADOR 

10' cargador del KRAKOUT 

20' para INPUT MSX 

30' por JOSE VILA 

50 BLOAD"cas:" 

60 POKE &HD829,0:POKE 

&HD82A,&HD9 
65 RESTORE 150 
70 FOR N=&HD900 TO &HD938 

:READ A: POKE N,A:NEXT N 
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75 POKE &HD940,0 
80 SCREEN 0: COLOR 15,1,1: 
KEYOFF 

90 INPUT "VIDAS INFINITAS (s/n) 
";VI$ 

100 IF Vl$ = "n" THEN POKE 

&HD933,201 
110 PRINT:INPUT "PANTALLA 

INICIAL(1/100)";PA 
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IF Pl> 
100 THEN GOTO 110 
130 POKE &HD92E,PA 
140 DEFUSR = &HD800:A=USR 
(0) 

150 DATA 229,58,64,217,60,50, 
64,217,254,4,40,10,50,64,217, 
254,6,40,32,225,233,20,1,33, 
62,2,34, 1 22, 1 92,33,50,33,34, 
1 24, 1 92,33, 1 20,0,34, 1 26, 1 92, 
62,62,50, 1 28, 1 92,62, 1 ,50, 1 29, 
1 92,201 ,62,0,50,2 1 9, 1 83,201 



ANIMACION 


8 


INTERES 


7 


GRAFICOS 


6 


COLOR 


7 


SONIDO 


6 


TOTAL 


34 
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DEMONIA 

• PROEIN l JUEGO a CASSETTE 

Demonia es por encima de todo un 
programa totalmente diferente a los 
aparecidos hasta ahora. Si nos fijamos 
en los gráficos vemos que estos son de 
trazado bien definido y aunque 
imaginativos muy reales. Si nos 
fijamos en el objetivo del juego éste 
también es diferente al de la mayoría 
de programas, no se trata de salvar a 
una dama o al mundo entero, sino que 
debemos salvarnos a nosotros mismos 
de los peligros que encontramos 
dentro del cementerio donde estamos 
atrapados. En definitiva un programa 
original y divertido. 
En fin , vayamos poco a poco y 
empecemos por el principio. Nosotros 
controlamos a un pequeño personaje 
que de pronto, espantado por los 
ruidos de la noche empieza a correr, 




y sin darse cuenta se encuentra 
atrapado en un cementerio. Nuestro 
deber es lograr llevar a este singular 
personaje, medio desnudo y tan sólo 
armado con un puñal, hasta donde se 
halla la llave que abre la puerta que 
nos impide salir de este infierno. Para 
conseguir este objetivo recorreremos 





el cementerio de arriba abajo hasta 
dar con la llave. Pero no nos será fácil 
conseguirlo, los habitantes del 
cementerio se encargarán de ello. Y 
sus ataques debilitarán nuestras 
fuerzas, que vienen representadas por 
un gráfico en la parte superior de la 
pantalla, hasta morir. Pero no todo 
está en contra nuestra por el 
cementerio, también podemos 
encontrar frutas que nos repondrán 



energías, o en momento de agobio si 
apretamos la tecla de STOP toda la 
acción quedará paralizada. 
El programa es entretenido, y el nivel 
de dificultad muy elevado. Pero con 
practica y perseverancia uno llega a 
conocer los puntos flacos de los 
diversos enemigos, ranas, diablos, 
vampiros, etc. Por ejemplo para matar 
la rana debemos esperar su salto y 
entonces disparar nuestro puñal 
contra ella, o para matar el diablo es 
necesario esperar el momento preciso 
en que sepamos que nada ni nadie 
intercepte nuestra arma para atacarle, 
ya que un fallo puede ser mortal. El 
juego es lineal, es decir las pantallas 
están una junto a otra, es como 
recorrer los 100 metros obstáculos, 
pero estas vez de ida y vuelta ya que 
una vez conseguimos la llave debemos 
volver al punto de partida para abrir 
la puerta que allí hay. Suerte. 



ANIMACION 


8 


INTERES 


8 


GRAFICOS 


9 


COLOR 


8 


SONIDO 


7 


TOTAL 


40 
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HYDLIDE 

• SONY A DISQUETTE I JUEGO 

Este es un juego que parece sacado de 
un cuento de hadas, el protagonista es 
un fuerte guerrero armado con una 
espada y un escudo. Y lo más 
emocionante del juego es que el 
objetivo es desconocido y la forma de 
lograrlo aún lo es más. Pero no 
debemos preocuparnos, no siempre 
nos iban a dar las cosas medio hechas, 
por una vez nos dejan rienda suelta 
para descubrir todos los secretos de un 
espectacular juego. Poco a poco y tras 
algunas partidas, iremos descubriendo 
algunos trucos. Por ejemplo, más 
tarde o más temprano descubriremos 
el significado de los tres gráficos que 
hay en la parte derecha de la pantalla, 
pero como son de gran importancia 
os contaremos lo que sabemos sobre 
ellos. El primer gráfico, llamado 
LIFE, tiene un pequeño sector de 
color verde que indica la cantidad de 
vida que poseemos. Este sector verde 
va cambiando a color rojo debido a los 
ataques de los enemigos, y cuando el 
sector es totalmente rojo, morimos. 
Cuando las cosas empiezan a ir mal y 
el color rojo empieza a alarmarnos, lo 
mejor es quedarse quieto en una zona 
tranquila y así el color verde volverá 
a aflorar. El segundo gráfico 
(STRONG) indica la fuerza que 
tenemos, y el tercer y último de los 
gráficos refleja la energía que hemos 
ido acumulando al matar a nuestros 
enemigos. Cuando este acumulador 
de energía se llena, toda la energía se 




convierte en vida y fuerza para nuestro 
guerrero, de manera que ahora 
podemos enfrentarnos a enemigos 
más poderosos. 

Como para descubrir los secretos de 
un programa hace falta mucha 
paciencia y perseverancia se ha 
complementado a este magnífico 
juego con las siguientes funciones: 

- W: guarda en memoria el momento 
de la partida donde nos encontramos, 
para poder volver a ella en cuanto 
queramos. 

- R: nos permite recuperar de la 
memoria del ordenador la partida que 
dejamos grabada. 

- S: salva a disco una partida. 
-L: recupera del disco una partida 
anterior. 

En fin, éste es un excelente juego para 
aquellos usuarios del MSX II que no 



les importe invertir un montón de 
horas en descubrir los secretos de 
HYDLIDE. 



ANIMACION 


8 


INTERES 


9 


GRAFICOS 


8 


COLOR 


9 


SONIDO 


8 


TOTAL 


42 
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FE DE ERRATAS 



Los duendes de todas las imprentas son juguetones tanto con 
los logotipos como con las personas que los usan. 

En esta sección, terrible suplicio para el lector, encontraréis 
cada mes los errores que se hayan deslizado por las telúricas 
hordas que pululan por la Redacción. 

¡Ah!... Y si encontráis un yerro que se nos resiste en anterio- 
res números y conocéis su solución, hacérnoslo saber: siempre 
habrá programas para nuestros lectores. 



INPUTN.°9 

PAGINAN." 5 

190 R0$="T240V10" 

200 S0$="T240V9" 

210 T0$="T240V9" 

220 R1$="04RGAB05DCCED" 

230 S1$= "04RRRGGF + GGA" 

240 T1$= "02GGR03GGREER" 

250 R2$ = "05DGF + GD04BGAB" 

PAGINAN." 6 

260 S2$= "04BBABBGEED" 
270 T2$="02BBR03EER03BB" 
280 R3$="05CDEDC04BABG" 
290 S3$ = "04EEF + EEDEE03B" 
300 T3$="O2AARBBR03CCR" 
310 R4$="04F + GADF + A05CO 
4BA" 

320 S4$="04CCD3AA4GAAF +" 
330 T4$= "03DDRF+ F+ RDDR" 
340 R5$="04BGAB05DCCED" 
350 S5$="04GGF+GGF + GGA" 
360 T5$="03GGRGGRCCR" 
370 R6$="05DGF + GD04BGAB" 
380 S6$ = "04BBABBGEEG" 
390 T6$="02BBR03EER03DDR" 
400 R7$="05EDC04BAGDGF+" 
410 S7$="04AAF + GGE03AA4C" 
420 T7$="03CCRC + C+RDDR" 
430 R8$="O4GB05DGDO4BGB 
5DGG" 

440 S8$="04DDGBBD03BB04 
GGG" 

450 T8$= "02GGRRRGDD02B 
GG" 

PAGINAN." 24 

270 COLOR 8,1,1 :SCREEN 2,2 
1970 IF SEG%>35 THEN GOSUB 
3820 

PAGINA N." 26 

2460 FOR W=1 TO LEN(OS) 
2480 LOCATET + 5,L:PRINT 

MID$(0$.1,W); 
2580 IF TIME<R + 5 THEN 2580 

PAGINAN." 28 

3330 FOR W=1 TO LEN(0$) 
3350 L0CATEY + 5,K:PRINT 

PAGINA N." 45 

230 IF A = M(K,T) THEN GOTO 440 
330 M(CO,0) = A:M(CO,1) = 
B:M(CO,2) = C:M(CO,3)= 
D:M(C0.4) = E:M(CO,5) = F 
590 PRINTMF(L,0);TAB(5);MF 
(L,1);TAB(5);MF(L,2);TAB(5); 



MF(L,3);TAB(5);MF(L,4);TAB 
(5);MF(L,5) 



INPUT N.° 10 

PAGINAN." 6 

410 NEXT:A$ = A$+".":FORJ = 

0TO2 
710 PRINTUSING" 

NN$(C); 
750 PRINTUSING" ";DES(C); 

PAGINAN." 7 

770 PRINTUSING" ";FI$(C); 
790 PRINTUSING" ";ST$(C); 
920 PRINTNN$(C);:LPRINTUSING 

" ";NN$(C); 
960 LPRINTUSING" ";DE$(C); 
980 LPRINTUSING" ";FI$(C); 
1000 LPRINTUSING" ";ST$(C); 

PAGINAN." 52 

970 A1$=CHR$(&B00010000) 
980 A2$=CHR$(&B00010000) 
990 A3$ = CHR$(&B00010000) 
1000 A4$=CHR$(&B1 10001 10) 
1010 A5$=CHR$(&B00000000) 
1020 A6$ = CHR$(&B00010000) 
1030 A7$ = CHR$(&B00010000) 
1040 A$=A1$ + A2$ + A3$ + A4$ 
+ A5$+A6$+A7$+ 



PAGINAN." 53 

1590 PSET(PEEK(WQ), 
PEEK(WQ+1), 
PEEK(WQ+2)) 

PAGINAN." 55 

270 INTERVALON:D = STICK(0): 
IFD=1THENGOSUB320 
ELSEIFD = 3THENGOSUB330 
ELSEIFD = 5THENGOSUB340 
ELSEIFD= 7THENGOSUB350 



INPUT N.° 11 

PAGINA N." 12 

770 PRINT#1,EDI$(X) 
PAGINAN." 13 

1290 DATA 32,32,32,32,32,32,32, 
32,32,32,32. 
32,32 

1300 DATA 69,83,84,69,32,83,69, 
78,67,73.76,76,79,32,80,82, 
79,71.82,65,77, 
65,32 



PAGINAN." 17 

3100 SF = S3:FF = F3:BF = B3: 
TF-T3 

PAGINAN." 18 

3470 VI = NU 
4020 C$= "5":C=5 

PAGINAN." 27 

145 IFPEEK(¡)=&HE5 THEN GOTO 
230 

275 IF LEN(A$)<4 THEN A$= 

STRING${4-LEN(A$),"0") + A$ 

345 FOR N = ATO A + 19 

355 PRINT"-";MID$(DI$(N),2,12); 
MID$(DI$(N),18,1) 

PAGINAN." 28 

420 IFLEN(A$)<2 THEN 840 
510 LI$(9) = CHR$(34) + "" = LI$(18) 
+ LI$(19) + CHR$(34) 

PAGINA N."30 

770 PRINT#1,"1480IFA$="; 
CHR$(34), "R";CHR$(34) 
THEN RUN";CHR$(34) 
"autoexec.bas";CHR$(34) 

JUEGOS INPUT 81 

990 IF PB = 21 THEN GOTO 1540 

JUEGOS INPUT 82 

2040 PSET(17,160),1:PRINT#1, 
"HEMOS EMPATADO.": 
FORWE = 1 TO 500: NEXT 
WE 

PAGINAN." 39 
350 NEXT I 

640 IF A$=<>" "THEN 610 
690 LINE(16,3)-(250, 23),15, 

BF:PRESET(14,10):COLOR 

1:PRINT#1, 

"EL CODIGO ES..." 

PAGINA N."40 

1110 Y=0 



PAGINAN." 41 

1260 CIRCLE{140,12),5, 

G:PAINT(140,12),G,G 

1450 Q=Q-1:NEXTI 

1540 PRESET(40,90):PRINT#1, 
"MASTER" 

PAGINAN." 43 

700 PRESET(199,90),1:PRINT#1, 

M;":";INT(S) 
830 LINE(195,80)- (265,1 10),8,BF 
1160 PRESET(300,77),1: 

PRINT#1, "Mueve flecha" 

PAGINA N." 53 (CARGADOR 
LIVINGSTONE) 

320 DEFUSR = &H9010:PRINT 
USR (0) 

1000 DATA "F30604C5480D3E 
80B10604C548E6F3" 



INPUT N.° 12 

PAGINA N."7 

680 IF0P=2 THEN GOTO 60 

PAGINAN. 9 

230 INPUT "Dirección inicial 
(Hex):";DI$ 

PAGINAN." 18 

135 DATAe0,77,23,22,81,e0,3 
a,80,e0,3d 

INPUT N.° 13 

JUEGOS INPUT 103 

50 R(1) = 0:R(2)=0:A(1,1)=20 
00000* :A(1,2) = 2000000 
#:A(2,1) = 2000000#:A(2,2) 
= 20000000* :A(1,3) = 0:A(2,3) 
= 0:A(1,4) = 100000!:A(2,4) 
= 100000! :A(1,5) = 0:A(2,5) = 0: 
A(T,6) = 0:A(2,6) = 0:PRINT 

PAGINA N." 40 

490 LPRINTA$;":"D$(3) + D$(2) 
+ "," + D$(5) + D$(4) + "," + 
D$(7) + D$(6) 



NO 
OL_V I DEIS 



TELEFONO 



SIEMPRE QUE 
NOS ESCRIBAS 
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Intercambio programas y experiencias 
MSX 1, MSX 2 y CP/M, todo en disco 
3,5" sin ánimo lucrativo. Gabi L. Puja- 
das. C/ Riera Blanca, n.° 53-55, 3.° 2. a . 
08028 Barcelona. Tel. (93) 240 92 94. 



Intercambio programas MSX tope 
guay. Primeros títulos. Angel Tomás 
Delgado. Avda. Carlos III, n.° 30. Cór- 
doba. Tel. (957) 25 69 25. 



Vendo Green Beret (cartucho original), 
Jack the Nipper, Bounder, Night Shade, 
Show Jumper, Jet Set Willy II, Gun- 
fright, Alien 8, Knight Lore (todas cintas 
originales) por 5.000 ptas. Llamar a Ju- 
lio. Tel. (94) 499 41 76 de 8 a 10 noche. 



Intercambio programas, trucos e ideas 
para los usuarios de MSX y MSX-2 en 
disco de 3,5", cinta o cartucho. Enviar 
lista. Tengo más de 200. Prometo con- 
testar. Julián Carrión Carrión. C/ Roble, 
n.° 1. La Palma. 30593 Cartagena. Mur- 
cia. 



Intercambio juegos MSX en cinta. Pri- 
meros títulos y novedades, Jesús Ruíz 
Moya. C/ España, n.° 51 , 3.° p. 3051 Ye- 
cla. Murcia. Tel. (968) 79 12 47. 



Cambio/vendo juegos y programas de 
MSX, poseo 80 títulos. También me in- 
teresan programas educativos y de 
aplicación. Enviar lista. Jordi Gómez 
Moncusi. Avda. Ponent, n.° 47, 2.° 4. a . 
L'Hospitalet de Llobregat. Barcelona. 



Intercambio juegos MSX no originales, 
con usuarios de toda España. Poseo va- 
rios títulos como: Soccer, Zanac, Green 
Beret, Kung-Fu Master, Head over 
Heels, etc. Daniel Rodríguez Doallo. C/ 
Matías Barrio y Mier, n.° 18. 34800 
Aguilar del Campo. Palencia. 



Vendo los mejores juegos de MSX (Za- 
nac, Goonies, Knight Mare, Livings- 
tone... hasta 100) por 200 ptas. Tam- 
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bién vendo copión capaz de copiar in- 
cluido música, por 500 ptas. Feo. Jesús 
Martos. Tel. (952) 25 94 70. Ciudad Jar- 
dín. Málaga. 



Cambio juegos no originales de Ko- 
nami (MSX). Tengo: Green Beret, Road 
Fighter, Yie Are Kung-Fu I y II, etc. Me 
interesan: Némesis, Twinbee, Jail 
Break, etc. Compro copión de cartu- 
chos. Marcelino Hermida López. 
Bomba «Taca». Maniños. 15520 La Co- 
ruña. Tel. 36 03 97. 



Cambio juegos MSX, más de 100 títu- 
los comerciales como Green Beret, 
Cosa Nostra y otros de igual calidad. 
Preguntar por Manolo. Tel. 
(93) 335 84 15. Barcelona. 



Vendo copias de juegos; poseo Alien 8, 
Avenger, Batman, Nightmare, The 
Goonies, etc. Posibilidad de hacerse so- 
cio de un club informático. Joan Portet 
Oliva. Plaga Josep M. a Folc i Torres, n.° 
16, 6.°. Granollers. Barcelona. Tel. 
(93) 870 39 90. 



Intercambio programas, instrucciones 
MSX. Mandar lista a: Diego Pérez 
Doña. C/ Galiana, n.° 4, 1.° C. 07013 
Palma de Mallorca. Baleares. 



Cambio juegos originales para MSX-1 y 
MSX-2, tanto en cinta como en disco. 
César Toquero. C/ Santuchu, n.° 73, 
4.° c. 48006 Bilbao. Vizcaya. Tel. 
(94) 433 68 24. 



Intercambio y vendo juegos MSX. 
Tengo más de 200: Head over Hells, 
Phatomas II, Arkanoid, Survivor, Spi- 
rits, Colt 36, etc. Oscar Guillén Pay. 
C/ Enrique Salas, s/n. Archena. Murcia 



Vendo ordenador SONY HB 101 p con 
los dos manuales que le acompañan, 
revistas (unas 15), un montón de jue- 
gos y la ampliación PHILIPS vu0034 a 
64K por el ridículo precio de 30.000 
ptas. Lo vendo por cambio de equipo y 
está todo garantizado. También inter- 
cambio juegos de todo tipo, poseo más 
de 200, primeras marcas. Javier Me- 
sanza Olabe. C/ Perú, n.° 10, 3.° izqda. 
01013 Vitoria. Tel. (945) 24 44 70. 



Vendo conjunto ordenador MSX, mo- 
nitor fósforo verde, magnetófono con 
cables marca DYNADATA por 40.000 
ptas. Vendo configuración completa 
compuesta de ordenador MSX (Dyna- 
data), monitor color, flopy Spectra-vi- 
deo e impresora Brother M1009 con ca- 
rro tractor, además el magnetófono, 
buen surtido de juegos en cinta y car- 
tucho. En conjunto o por partes. Precio 
a convenir. Llamar al (93) 777 03 28 
preguntar por Luis o Rosa. 



Vendo/cambio los siguientes cartuchos 
ROM: Logo-Philips (sin estrenar), Soc- 
cer, Trac & Field II, Homewriter y Crea- 
tive Greetings (sólo para plotter). Tam- 
bién programas en disco 3,5". Javier 
Leza. Aptdo. de correos 420. 8080 Santa 
Cruz de Tenerife. 



Vendo HB-55P en buen estado junto 
con unos 20 juegos comerciales (Aven- 
ger, Jack The Nipper, etc.) más 20 re- 
vistas (Input MSX). Por el increíble pre- 
cio de 22.000 ptas. Francesc Matas 
Puigdollers. C/ Sant Jordi, n.° 15. 08500 
Vic. Barcelona. 



Intercambio programas MSX. Poseo: 
Dambusters, Future Knight, Knight- 
Mare, Soccer, Goonies, etc. A cambio 
de: Cosa Nostra, North Sea H., Zanac, 
Némesis. David Caballero López. C/ Al- 
hamar, n.° 41,1.° b. 18004 Granada. Tel. 
(958) 25 36 59. 



Cambio/vendo juegos MSX (Night- 
Mare, Gauntlet, Zanac, etc.). Vendo 
también los juegos para el SVI 328. Ja- 
vier Martín. Tel. (986)27 76 36. Vigo. 
Pontevedra. 



Vendo todos mis programas para Ams- 
trad CPC. Tengo más de 200 originales. 
Tel. (958) 60 14 81 - 60 10 41. 



Cambio/vendo juegos y aplicaciones 
MSX 1 y 2 en cinta y disco de 3,5". Po- 
seo últimos títulos (Arkanoid, Green 
Beret, Avenger... etc.). Multicomputer 
Club MSX. P/ Cipriano G. Piñero, n.° 9, 
6.° B. Tel. (924) 45 00 45/45 03 62. 



Cambio/vendo juegos MSX (Chexder, 
Arkanoid, Goonies, Zanac, etc.) unos 
150. Me interesan: Spitfire 40, Néme- 
sis, etc. José Herminio Gascón. Avda. 
de la Marina, n.° 17 (La Pinta), 1.° 4. a . 
Playa de Tavervenes de Valldigna. Va- 
lencia. 



Compro ensamblador y desensambla- 
dor para MSX. Alberto Alvarez Besada. 
C/ Rúa da Praza, 31. O Grove. Ponte- 
vedra. Tel. (986) 73 07 69. 



Compro ampliación de memoria HBM- 
64, en buen estado, pago desde 15.000 
a 17.000 ptas. Nicolás Ruiz. C/ Vilado- 
mat, 235, 5.° 3. a . 08029 Barcelona. Tel. 
(93) 239 87 64. 



Vendo video-juego marca Colleco Vi- 
sión más dos cartuchos de juegos. De- 
searía que fuese sólo en Barcelona. 
Todo por 19.000 ptas. Diego Sierra San- 
cerni. C/ Dr. Ferrán, 43, 2.° 2. a . 08034 
Barcelona. Tel. (93) 203 32 98. 



Deseo contactar con aficionado que po- 
sea MSX TOSHIBA HX-10 y que tenga 
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conocimientos de electrónica para in- 
tercambiar ideas sobre fabricación de 
cartuchos para controlar aparatos tele- 
dirigidos por ordenador. Imeldo De 
Castro García. C/ Cuesta de la Villa, 
n.° 117. 38390 Sta. Ursula. Sta. Cruz de 
Tenerife. 



Intercambio programas MSX en disco 
de 3,5". Antonio Marín. Apdo. n.° 173. 
07080 Palma de Mallorca. Tel. 
(971)29 04 63. 



Cambio/vendo juegos o programas, 
dispongo de más de 100: entre ellos: C. 
Warriors, Avenger, Fernando Martín. 
Los vendo a 300 ptas. Busco copión. 
Unai Aizpurua Marcos. C/ Catalina de 
Erauso, n.° 15, 1.° A. 20010 San Sebas- 
tián. 



Cambio juegos como: Dam Busters, 
Basket M, Tres Luces, Batman, y 40 tí- 
tulos más por, Yie Are Kung-Fu, Zaxon, 
Green Beret, Némesis. También vendo 
o cambio copión de marca. Jorge Espi 
Matarredona. C/ Complejo Vistaher- 
mosa, blq. 9-V. 03016 Alicante. Tel. 
(965) 26 33 40. 



Busco las instrucciones del Music Mo- 
del de PHILIPS. Pagaría fotocopias y 
gastos de envío. Llamar a: Ramón 
(965) 70 09 95. 



Cambio/vendo juegos, poseo las me- 
jores novedades, enviar lista a Angel 
Regaño Monje. C/ Ibiza, n.° 3, 4.° 4. a . Ba- 
dalona. Barcelona. Tel. (93) 388 81 78. 



Vendo ordenador Spectravideo 328 
con su cassette SV-904, además de jue- 
gos originales, libro de programación, 
documentación y un Joystick Quicks- 
hot II. Todo por 27.000 ptas. Jesús Co- 
rrales Ruiz. C/ Obieta, n.° 44. 48950 
Erandio. Vizcaya. 



Intercambio ideas, trucos en código 
máquina y programas. Jesús Arias Ló- 
pez. C/ Gran Vía, n.° 45, 1.° A. 30400 Ca- 
ravaca de la Cruz. Murcia. Tel. 
(968) 70 08 46. 



Vendo/cambio juegos y programas de 
aplicación a 200 ptas., tengo 230 pro- 
gramas comerciales y 120 cartuchos en 
cinta, últimas novedades. Pedidos ga- 
rantizados contra reembolso a: Jordi 
Arias Ruiz. C/ Abat Escarre, 20-22, 3.° 
1. a . 08830 Sant Boi. Barcelona. Tel. 
(93) 654 48 22. 



Intercambio programas MSX o CP/M 
en discos de 3,5 pulgadas. Juan Díaz- 
Bustamante Berasategui. C/ Francisco 
Díaz, 4-6. 39300 Torrelavega. Cantabria. 
Tel. (942) 88 28 67. 



azoco 

Intercambio juegos, poseo entre otros 
Fernando Martín, Abu Simbel, Zanac, 
etc. Oscar Ferradas García. C/ General 
Mola, n.° 10, 2.° C. 36900 Marín. Pon- 
tevedra. Tel. (986) 88 29 82. 



Vendo juegos grabados a 150 y 200 
ptas. Tengo más de 250 títulos de los 
mejores, así como cartuchos en cinta. 
Mariano Delgado García. Plaza de la 
Morguera, 2, 2.° A. 16004 Cuenca. Tel. 
22 26 68. 



Intercambio/vendo programas, poseo 
más de 200, como Zanac, Knight Mare, 
etc. y utilidades, en cinta y en diskette. 
Daniel Albert Tomás. Plaza Sufragio, 
n.° 11, 6.° 16. a . 46600 Alzira. Valencia. 
Tel. (96) 24 11 420. 



Vendo programas grabados, precio a 
convenir, tengo 250 de los mejores, 
también en cartucho y en cinta. Robert 
Buckner. C/ Hermanos Becerril, n.° 17, 
2.° A. 16004 Cuenca. 



Vendo ordenador PHILIPS VG-8020, im- 
pecable y sin usar, con manuales y ca- 
bles en perfecto estado. Además ad- 
junto programas como Phile, Gen-mon 
y juegos como Zanac, Fernando Martín, 
etc. y todo por 30.000 ptas. Javier 
Moro. C/ Feo. Moragas, 60. Entio. 1. a . 
Sta. Coloma de Gramanet. Barcelona. 
Tel. (93)386 62 86. Llamar de lunes a 
jueves de 19 a 22 horas. 



Compro una ampliación MSX de 64 K 
por 10.000 ptas. José Eduardo García 
Peñalver. C/ Generalísimo, n.° 45. Cor- 
vera. Murcia. Tel. (968) 38 01 49. 



Intercambio programas para MSX 
tanto en cinta como en disco 3,5". Sin 
interés económico. Enviar relación. 
Luis Amado Regó. C/ B, 74, 4.° A. 36500 
Lalin - Pontevedra. 



Cambio 40 títulos (Yie II, Circus, Tennis, 
Road, Hyper Rally, etc.) por uno de es- 
tos: Green Beret o Nemesis, originales 
o no. Manuel Lavilla. Aptdo. postal 29. 
12400 Segorbe - Castellón. 



Intercambio programas, pokes, mapas 
e información sobre MSX sin fin de lu- 
cro. CLUB DIR SOFT. Antonio Javier 
Rus. C/ Colón, 27, 2.° A. 08400 Grano- 
llers - Barcelona. Tel. (93) 870 97 75. 



Intercambio ideas, trucos, programas, 
conocimientos de MSX C/M. J. Antonio 
López. C/ Rúa Xan Vicente Viqueira, 3. 
Vilanova. 15176 San Pedro de Nós. La 
Coruña 



Intercambio programas en cinta o 
disco de 3,5". No me interesan los de 
revista. Tengo muchos de cartucho. 



Eloy Román. Avda. Burgos, 12, 2.° B. 
08210 Ciudad Badía - Barcelona. Tel. 
(93) 718 30 75. 



Intercambio programas MSX con toda 
España. Poseo: Rambo, Dun Shot, 
Chexdex, Goonies, Nightmare, etc. Al- 
fonso Gómez Gutiérrez. Apt, 167. Al- 
muñecar. 18690 Granada. Tel. (958) 63 
04 85. 



Intercambio todo tipo de programas 
MSX y MSX-2 tales como: Spit-Fire 40, 
Nemesis, etc. Poseo unos 200. Feo. Je- 
sús. Tel. (954) 63 09 14. Sevilla. Llamar 
por las mañanas 



Apúntate a computer Club MSX. Para 
obtener más información puedes con- 
tactar con: Emilio Silvera. C/ Palos, 21 
bajos. 21003 Huelva. Tel. (955) 25 34 78. 



Intercambio juegos para MSX en cinta 
poseo unos 100 títulos, entre ellos bas- 
tantes novedades. Santi Llastarri. C/ 
Concepción Arenal, 147, 2.° 3. a . 08027 
Barcelona. Tel. (93) 340 02 46. 



Cambio/vendo copión por 5 juegos que 
yo no tenga o precio a convenir. Llamar 
al (972) 25 00 92. Desde las 7 a las 10. 
Girona. 



Vendo videopac PHILIPS con 6 juegos 
en buen estado todo por 15.000. Diego 
Sánchez. C/ Tamarit, 157, 5.° 1. a , Bar- 
celona. Tel. (93) 325 50 15. 



Intercambio juegos primeros títulos. 
Jorge Fábrega. Barrio San Pedro, 7. La 
Seu d'Urgell. 25700 Lérida. Tel. (973) 35 
14 74. 



Vendo/cambio juegos Jet Set Willy II y 
Showjumper, en perfecto estado. Me 
gustaría cambiar por Decathlon o por 
Batman. Fabio Méndez Sáinz. C/ Her- 
minio Fdez, 7. Guarnizo - Cantabria. Tel. 
(942) 54 01 50. 



Intercambio programas MSX, preferen- 
temente código máquina o en Basic co- 
merciales. Poseo más de 500 títulos. 
También desearía intercambiar instruc- 
ciones de programas y juegos. Enviar 
lista. Emilio Rabasco Jiménez. C/ Mur- 
cia, 1. 14010 Córdoba. 



Vendo Mitsubishi ML-FX2 de 80K RAM 
que incluye programa integrado 
M.A.P.: fichero, procesador de textos, 
hoja electrónica y gráficos. 6 meses de 
garantía. 39.000 pts. José M. a Alonso 
García. C/ Ronda de la Feria, 7, 5.° B. Za- 
mora. 



Intercambio programas disco 3,5". 
Juegos y especialmente utilidades, in- 
teresan WORDSTAR, CP/M, Base l¡, 
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programas NEVADA... etc. Poseo 
TASSWORD, GEN-MON, MSX-DOS, y 
otros juegos como SOCCER; HERO,etc. 
Juan Pérez Canalejo. M. Valles Villa- 
marín, 3. La Coruña. Tel. 28 69 67. 



Cambio 40 juegos primeras marcas: 
SOCCER, HERO, BATMAN, KING'S VA- 
LLEY etc. Por uno de los siguientes: 
Green Beret, Goonies, Fernando M. Za- 
nac, etc. originales o no. También los 
vendo por 150 pts. Javier Martínez. C/ 
Clavell, 37. Torre. San Andrés de la 
Barca - 08437 Barcelona. 



Vendo cursillo de BASIC MSX en video 
(en bonito estuche y doble cassette, en 
perfecto estado y buena visión) ideales 
para una perfecta iniciación en el len- 
guaje BASIC, acompañadas las leccio- 
nes con ejercicios y programas para 
practicar. Podría prestar uno para verlo 
y opinar. Precio 5.000 pts. Juan José 
Morales Martín. C/ Monte Aldabe, casa 
Bidé Berri B 1.° C. 20300 Irún - Guipúz- 
coa. Tel. (943) 61 61 57. 



Cambio copión y GREEN BERET por 
1.000 pts. O bien copión de cartuchos y 
GREEN BERET por 3.000 pts. (Si no te 
interesa Green Beret tengo Goonies y 
Knight Mare). Javier Alba. C/ Condes de 
Urgel, 2, 5.° 3. a . 25007 Lérida. Tel. (973) 
24 13 69 de 7.30 a 10 h. 



Intercambio/vendo juegos MSX poseo 
los más buenos (Wizars Cairs, Star- 
quare, Night mare, Green Beret, etc.) 
Compro unidad de disco 3,5" compa- 
tible al sistema MSX. Oscar. Tel. (93) 
240 08 72. Barcelona. 



Vendo Hit Bit 75-p más unidad de dis- 
quet HBD-50 toda ello en perfecto es- 
tado y con paneles. 70.000 pts. Román 
Castiella. Gerona. Tel. 36 63 83. Horas 
de comidas. 



Vendo ordenador MSX de 80 K HB-10 
P de SONY por 36.000 más 7 juegos. 
También vendo los juegos por sepa- 
rado al precio de 900 pts. Antonio. Tel. 
(93) 652 16 94. 



Cambio/vendo programas MSX. Enviar 
lista. Angel Serna Torralba. C/ Florida, 
10, 4.°. 39007 Santander. Tel. (942) 23 
34 43. 



Vendo/compro toda clase de juegos, 
entre ellos (Knight Lore, Zaxxon, Green 
Beret, Rambo, etc..) precios baratísi- 
mos. Envíos contrareembolso o de 
cualquier otra forma. Ramón Torres 
Rodríguez. Ctra. de Granada, 8, 3C. 
Guadix. Granada. Tel. (958) 66 14 72. A 
partir de las 7 p.m. 



Cambio juegos MSX (Hero, Soccer, 
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Goonies, etc..) 80 en total. En cinta o 
diskettes 3,5". Rubén Altes Gordo. C/ 
Miami, 10, 3.°, A. Reus. Tarragona. Tel. 
32 10 85. 



Deseo intercambiar juegos con chicas/ 
as de mi propia ciudad a ser posible, en 
el plazo más breve. Rodrigo Haya Ra- 
mos. C/ Vitoria, 29, 7.° dcha. 09004 Bur- 
gos. Tel. (947) 26 61 98. 



Cambio procesador de textos, COM- 
POR Base de datos, DATABA contabi- 
lidad doméstica. Por alguno de estos 
juegos: Knight Lore, Yie ar Kung Fu I o 
li, Decathlon) a poder ser pasados a 
cinta. José Miguel Lamban. C/ Marga- 
rita Xirgu, 20, 5.° D. Zaragoza 50015. 



Copiones MSX y lectores de memoria, 
para todos los ordenadores del sis- 
tema. También se venden juegos, 200 
títulos (Green Beret, Samantha Fox, 
etc.) Iban Triado. C/ Martorell, 59, 2.° 4. a 
Sant Cugat del Vallés. 08190 Barcelona. 



Vendo/intercambio programas de 
MSX-1 a bajo precio. Tengo 300, en su 
mayoría juegos últimas novedades. 
Juan Carlos Enrique. C/ San Pedro No- 
lasco, 2-5. 12530 Burriana. Castellón. 



Atención se ha formado un CLUB para 
usuarios de ordenadores y amigos de 
la informática; disponemos de trucos, 
pokes, programas y juegos para MSX, 
Amstrad y otros. Apúntate. Rubén Ji- 
ménez Zapata. Alpujarras, 47, 5.° D. Le- 
ganés. Madrid. 



Compro Ampliación de 64K para Sony. 
Buen precio. Javier Longobardo Po- 
lanco. C/ Sos del Rey Católico, 2, 2b, 9, 
2.° B. Granada. Tel. (958) 12 34 43. 



Club Cosa-nostra cambiamos, vende- 
mos, programas de MSX de utilidades, 
didácticos y juegos. También toda 
clase de periféricos. Vicente Maqueda 
Tello. C/ La Fuente, 18. Villa de don Fa- 
brique. Toledo. 



Cambio/intercambio o vendo progra- 
mas juegos para MSX. Tengo entre 
otros (Decathlon, Magical Kid, Wiz, 
Goonies, etc.). Me interesan (Spitfire 
40, Kung Fu Master, Zaxxon, Profana- 
ron, Le Mans 2, etc.). Sergio Pina. C/ 
Manuel García, 6. Alcañiz. Teruel. Tel. 
(974) 83 14 82. 



Vendo Curso de Basic en vídeo (2 
cintas). Es de Sony y es bastante 
completo. Consta de introducción, con- 
ceptos, mandatos, diagramas de flujo, 
bucles, sentencias, Tron, Troff, etc. Es- 
tuche con las dos películas (a estrenar) 
1.200 pts. De todas formas precio a 
convenir. Berta Casero. C/ Aguado, 2, 



1.° H. Gijón. Asturias. Tel. (985) 36 82 
77. 



Vendo/cambio Tomavistas Yashica 
electrónica LD-6 por unidad de disco o 
impresora MSX. Se valoran ofertas. 
Jorge Lafuente Bartra. C/ Pintor Magin 
Oliver, 5-7, 3.°, 3. a . Martorell. Barce- 
lona. Tel. (93) 775 32 08. 



Por cambio a MSX-2, se vende orde- 
nador MITSUBISHI ML-FX1 de 64K, con 
cables, manuales y cinta de juegos. Por 
sólo 35.000 pts. J. Luis Gutiérrez. C/ Su- 
bida del Gurugú, 3, 3.° dcha. 39004 San- 
tander. Cantabria. Tel. 27 46 82. 



Vendo ordenador SONY HB-75p de 
80K, con el regalo de un procesador de 
texto, además vendo impresora plotter 
SONY (MSX), bola gráfica con pro- 
grama en cartucho y monitor TV en co- 
lor SONY, en conjunto o por separado, 
precios a convenir. Miguel Ángel. Tel. 
(91) 279 67 97. Madrid. 



Intercambiaría/vendería programas de 
gestión, aplicación, juegos, etc. MSX 1, 
MSX 2, CP/M, en disquetes de 3,5" de 
simple o doble cara. Enviar lista. Ga- 
briel León Sust. C/ Riera Blanca, 53-55, 
3.°, 2. a , Barcelona 08028. Tel. (93) 240 
92 94. 



Intercambio y busco programas de 
gestión, aplicación para ordenadores 
MSX. Miguel Borrego. C/ Abad Racimir, 
11. 17800 Olot. Gerona. 



Cambio/vendo ordenador Amstrad CPC 
664 (64K) con magnetófono incorpo- 
rado, libros de programación y muchos 
juegos por un MSX de 64 o 80K con su 
cassette y juegos. Roberto Ramos Pé- 
rez. P.° de los Fueros 7, 1.° C. Sangüesa 
31400. Navarra. Tel. (948) 87 09 43. 



Grabo cinco juegos a elegir entre los si- 
guientes: Gunfright, Pinball, Knight 
Shade, Knight Lore, Batman, Road 
Fighter, C. Warriors, Profanation, Hyper 
Sport I y II a cambio de un copión para 
un Hit Bit HB 75P. Fernando. C/. La- 
bayru, 25, 3.° izq. Bilbao-Vizcaya. Tel. 
432 29 60. Procurad ser de Bilbao. 



Vendo Philips VG-8020 MSx 80K por 

32.000 pts., incluyo cassette y progra- 
mas. También vendo monitor TV b/n. 
Jaume. Tel. (93) 674 94 41. Barcelona. 



Vendo por no usar HIT BIT HB 10P en 

perfecto estado y con seis meses de ga- 
rantía oficial SONY, además incluyo li- 
bros, cables, transformador y cassette. 
Francisco Arbizu Matas. C/ Barcelona, 
72 bajos. Hospitalet. -Barcelona. Tel. 
(93) 337 27 22. 
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GANADORES DE LOS MEJORES DE INPUT MSX 



En el sorteo correspondiente al número 13 entre quienes escribisteis mandando vuestros votos a LOS MEJORES 
DE INPUT han resultado ganadores: 



NOMBRE 

Antonio Plaza de Diego 
Marcelino Delgado Benavente 
José J. Esteban Garrido 
José A. Giménez González 
Jaime A. García Fuster 
Marc Tolosa Soteras 
Yolanda Micola Martín 
Marcos Giménez Jalón 
Gemma Roda Aldabó 
Javier Goñi Rodríguez 



LOCALIDAD 

Madrid 

Parla (Madrid) 
Alcorcón (Madrid) 
Elgoibar (Guipúzcoa) 
P. Mallorca (Baleares) 
P. de Claramunt (Barcelona) 
Barcelona 

Santa Coloma de G. (Barna) 

Barcelona 

Logroño (La Rioja) 



JUEGO ELEGIDO 

NEMESIS 
GAUNTLET 
F. MARTIN B. 
HYPER RALLY 
SPITFIRE 40 
LIVINSGTONE 
NEMESIS 
GREEN BERET 
HYPER RALLY 
THE GOONIES 



GANADORES DE LOS MEJORES DE INPUT MSX 



En el sorteo correspondiente al número 14 entre quienes escribisteis mandando vuestros votos a LOS 

MEJORES DE INPUT han resultado ganadores: 



NOMBRE 



LOCALIDAD 



JUEGO ELEGIDO 



Santiago Ibarra Jiménez 
José L. Capdevila Belio 
José A. Ruiz González 
Vicente Martínez Grimaldos 
Javier Santiago Mata 
Núria Solé Flamerich 
Nicolás Gil Nieminen 
Alfredo Florez Enciso 
Rubén Casas Galvez 
Marisol Mulet Díaz 



Lorca (Murcia) 
Lleida 
Granada 
Barcelona 

Reinosa (Cantabria) 
Barcelona 
Manises (Valencia) 
Madrid 

Badalona (Barcelona) 
Murcia 



ARKANOID 
BATMAN 

FERNANDO MARTIN 
FUTURE KNIGHT 
SPIRITS 
GOONIES 

CAMELOT WARRIORS 
BATMAN 

YIE ARE KUNG-FU II 
FERNANDO MARTIN 
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ARMY MOVES 



r 



SPECTRUM • MSX 
AMSTRAD *CB1*64 AM« 




875 PTS. CADA UNO, NUEVO PRECIO DINAMIC 



DINAMIC SOFTWARE. Plaza de España, 18. 

Torre de Madrid. 291.2itiÚ&Nadrid. 
Pedidos c ontrd reembolso (de lüaEm.\ierne$. 

del0a2yde4aS horas): Teléfono 78 87. 
Tiendas i Distribuidores: Teléfono (91) 44 7 34 10. 




soto 2-/ „ 



